PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPP PPP 
PPP PPP 
PPP PPP 


PPP PPP 
PPP PPP 


PPP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


tt tt ot st tt Ht 4 St St Ht Ht Ht SH Ht 

AAAs tH HS HH 

A a A A A tH tt 
AAAAAAOOOAAMAAOO 
AAQMAAAAOAOAMAAAOAO 
NOAAMAAAAAAAAAOOO 


HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 


| 
ed 


< 
a 


vO 


**F I LE**1D**PATEXA 


<«<aqaqqaqdaddetdceceece 

<< << 
<<a << 
<< << 
<< << 
<< << 
<< << 

<< 

<<a 


Wd ss ss a Ls a as i a a 
Rd kd 


ee 
ee ee oro 


PPPPPPPP 
PPPPPPPP 


PP 
PP 
PP 
PP 
PPPPPPPP 


PPPPPPPP 


44 
—) 
44 
syd 
a4 
y4 
a4 
— 
_— 
a4 


M 3 
19-500 138% 90:39:48 VAX-11 Bliss-32 V4.0-742 1 
14-Sep-1984 12:52: DISKSVMSMASTER:CPATCH.S SRCIPATEXA.B32; - (1) 


MODULE PATEXA ( 


| ata EQ. 1 
“FI ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), 
IDENT = 'V04-000') = 


BEGIN 


Vee AAA RARER REET 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


* 
*® 
*® 
* 
® 
!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND fad * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
tt OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. ° 
: * 
!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 

7 

aa 

® 

x 

7 

*® 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See RARE RRA EAAAA EA AAAAE RARE EAT AAA TAREE AAR eeAAKeeeeAkeeeeeeeee ee 
' 


FACILITY: PATCH 
ie 


; FUNCTIONAL DESCRIPTION: 
EXAMINE, DEPOSIT, AND DELETE ROUTINES FOR STARLET PATCH FACILITY 
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! ranerys 

! uthor: Carol Peters, 21 Jul 1976: Version 01 
Kathleen Morse, 19 Oct 1977: Version x01.00 
i Modified by: 


i] 

' 

' 

' 

! 

' 

' 

' 

1 

‘ v03-002 oer Mike Rhodes 02-Nov-1982 

‘ Modify routine RELOCAT INS to pass the address of the 

' the instruction(s) to Be relocated to the patch area 

! This address will be geeees., ne PATEL to PATSEXP_AREA 

‘ routine PAT$B ILD, ise (which is 
: called to create the default atch area one does not 
: already exist). PATSBUILD_IS Ll use re address to 
! propagate the image section attributes of the patched 
image section to the newly created default patch area. 
' 

i] 


v03-001 MTROO12 Mike Rhodes 16-Aug-1982 
Modify file names to remove duplicate file nals useage 


which in turn may cal 
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PATEXA 


1 1984 00:30:29 VAX-11 Bliss-32_ V4.0-742 af 
v04-000 1 71984 99:33:93 DISKSVMSMASTER: CPATCH.SRCIPATEXA. 832 ae 1) 


3 $ p038 } between code and ae files. 

;: O96 1 | v02-023 PCG0001 Pete orpe 04-F EB-1981 

: +, oe BRe3 : } Add require statement for IB$:PATDEF .REQ 

; 0068 1; v0122 BLS0039 Benn Schreiber 35-Feb-1981 

3 rt: Obed : } Correct handling of aye area. 

$ 66 8008 7% v0121 CNHO014 Chris 4 -1979 11:00 

; 24 se 4 : Added relocation a "ter the ACBG iad ACB instructions. 
; 69 0069 1! v0120 CNHO008 Chris Hume 28-Jun-1979 14:00 | 
. 0070 1! en CASE reptateners bug ne isallow relocation of these 

ety: 0071 1! ineecuc tiene PATMAL.632 VO $56 inet B32 v0124, 

; o07¢ PATMAC.B3 vo21)" PATMSG.MDL VO202 

s 0074 1 ! Revision history: 

: 75 0075 1! NO DATE PROGRAMMER PURPOSE 

: 76 0076 1 ' oo ePeee - - j jseeeeessess=s =  ééeeseeesee 

Pe is 0077 1! 

: 78 0078 1! OO 19-OCT-77 K.D. MORSE ADAPT 4 x ee 49 FOR PATCH 

;: «© 0079 1! O11 01-DEC-77 K.D. MORSE ADD DELETE ROU 

; 80 0080 1! 02 27-DEC-77 K.D. MORSE CHANGE PATS$OUT VALUE Met (57) 

: 61 0081 1! ADD PATSSYM_DEPOS 

; 82 008 1! 03 2=JAN-78 K.D. MORSE o ECK FOR NO se na0rS * IMAGE. 

$ 83 008 1! 04 3-JAN-78 K.D. MORSE ADD HECK FOR NO PATCHAREA 

: 84 0084 1! ALLOCA Mh BEFORE DEPOSIT /PAT. 

3 85 0085 1! O5 4-JAN-78 K.D. MORSE NO CHANGES FOR VERS ae ES 

$ 86 0086 1! 06 5-JAN-78 K.D. MORSE CHANGE PATSINS_DECODE CALLS. (54) 

: 87 0087 1! NO CHANGES FOR VERS 55,56. 

; 0088 1! O07 24-JAN-78 K.D. MORSE NO CHANGES FOR VERS 59. | 
3 89 0089 1! O08 $27=-JAN-78 K.D. MORSE ADD CHECK FOR EXIT_TOKEN IN 

4 90 0090 1! lhe ayy CMD TO RECOGNIZE 

>) Se 0091 1! END 0 D CIST. 

4 92 0092 1! O09 28-JAN-78 K.D. MORSE EUTLD REPLACEMENT CODE INTO 

3 93 009 73 TEMPORARY BUFFER. 

; 94 0094 1! 10 #£=QO1-MAR-78 K.D. MORSE CHANGE ERRONEOUS PATS$_DECODE 

; 95 0095 1! ERROR MSGS TO PAT$_ENTODE. 

; 96 0096 1! #11 4-MAR-78 K.D. MORSE NONE FOR VERS 60-6T. 

4 97 0097 1! 12 4-APR-78 K.D. MORSE NONE FOR VERS 62. 

; 98 0098 1! 13 5-APR-78 K.D. MORSE CONVERT TO NATIVE COMPILER. 

; 99 0099 1! 14 8-APR-78 K.D. MORSE ADD ASSEMBLER DIRECTIVE FLAG 

: 100 0100 1} TO PATSOUT_MEM_LOC. 

3 101 Oo101 7! 5 18-MAY-78 K.D. MORSE NO CHANGES FOR VERS 63. 

H 44 3106 1! 16 26-MAY-78 K.D. MORSE ADD CODE TO ALLOW FORWARD | 
; 10 010 7 3 REFERENCING IN SYMBOLIC 

; 104 0104 1! INSTRUCTION OPERANDS. | 
: 105 0105 1! 17 13-JUN-78 K.D. MORSE ADD FAO COUNTS TO SIGNALS. 

: 106 0106 1! 18 19-JUN-78 K.D. MORSE NO CHANGES FOR VERS 64. 

: 107 3424 1! #19 28-JUN-78 K.D. MORSE NO CHANGES FOR VERS 65-67. 
; 108 108 1! ADD CODE FOR EV/LITERAL AND 
: 109 0109 1! ROUTINE DISPLAY_LVTS. (66) 

: 110 0110 1! NO CHANGES FOR JERS 69-74. 

es 917 0111 +#1='! 

: 112 0112 1 !-- 


| 
| 
| 
| 
| 
| 
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PATEXA 
v04-000 


SWITCHES LIST (SOURCE); 


EXTERNAL ROUTINE 
PATS$fao_out; 


! formats a Line and outputs to the terminal 


1$-se0-1984 90:38:28 AN 


S$0UAR8: CPATEN: 
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PA] 
v04 


Holds count in output buffer 
Head of Linked List of expressions 


Last location displayed 


dD 4 
16-Sep-1984 00:30:29 VAX=11 Bliss-32 V4.0-742 Page 5) 
1228607 382 99:39:43 DISKSVMSMASTER LPATCH. SRCIPATEXA.B32: 1" (2) | 
6 9 g REQUIRE ‘SRC$:PATTER.REQ'; | 
7 REQUIRE ‘SRC$:PREFIX.REQ'; 
8 421 REQUIRE ‘SRC$:PATPRE.REQ'; 
9 584 REQUIRE ‘SRC$:VAXOPS.REQ'; 
- 5 EXTERNA | 
800 PATSGB_SYMBOLS, | Indicator if image had symbols | 
801 PAT$GL_OLD_ASD, ! Descriptor for old contents assembler dire| 
8 ¢ PATSGL_NEW_ASD ! Descriptor for new contents assembler dire 
8 PATSGL-TEMP_BUF : Bock BYTED- ! Descriptor for temporary buffer for deposi 
8 PATSGL_RLOC_BUF : BLOCK(,BYTE] ! Descriptor for relocated instruction strea 
8 PAT$GB_SUBST_IN : VECTORE BYTES, ! Buffer for substitution instruction stream | 
8 PATSGL_BR_DISPL, ' Branch displacement that does not fi 
8 PATSGL_PATAREA : REF BLOCKC BYTE. ' Pointer to patch area descriptor 
: by a a RE pe oene OT TE ‘ } potatos se tnoge header : 
LOC. ! Type of end range argumen 
8 $GB_MOD PTR: REF VECTOR C, BYTE), : Pointer to mode Level | 
8 PATSGL_IHPPTR : REF tsi ty gett ! Pointer to image header patch area 
8 PAT$SCP_OUT_STR : REF VECTORL,BYTEJ, ! Points into current output buffer 
: PATSOL CONTEXT: BITVECTOR, : Context bits longword | 
8 
8 : 
8 : 
8 : 
8 : 
8 : 
8 : 
8 : 
8 
8 
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Finds the value bound to a symbol name 
Computes unmapped addresses 
Translates a value to a symbol name 
Routine to write to user's memory 


PATSSYMBOL VALU, 
PATSUNMAP_ADDR : NOVALUE, 
PATSVAL_TO_SYM, 
PATSWRITE_FEM; 


ee ee ee ee ee ee ee 
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PATSGL_LAST_VAL, Last value displayed 
PATSGL_NEXT LOC, Next location to display 
PATSGL_SYMTBPTR, Pointer to current symbol table 
PATS$SGL_OLDLABLS, Listhead for old contents labels (from cur 
PATSGL_NEWLABLS, Listhead for new contents un-relocated lab 
PATSGL_RLCLABLS; List head for new contents relocated Label 
EXTERNAL ROUTINE 
PATSADD_LABELS : NOVALUE ' Adds labels to user-defined symbol table 
8 PATSADD-NT_T_PV : NOVALUE, i Build pathname vectors from NT_PTRs 
6 8 PATSEXP_AREA : NOVALUE, ! Expands patch area 
7 82 $FAO PUT : NOVALUE, ! Formats buffered output 
7 Be PATSFREERELEASE, ! Deallocates free memory 
7 8 PATSFREEZ, ' Allocates and zeroes free memory | 
7 83 PATSGET_NXT_LVT, ! Provide access to the LVT 
7 83 PATSGET_VALOE : NOVALUE, ' Gets byte stream of values from image 
7 83 PATSINS_DECODE, ! Routine to output memory as 
7 83 ' symbolic instructions 
7 83 PATSINS_ENCODE, ! Routine to encode a symbolic instruction 
7 83 PATSMAP_ADDR : NOVALUE, ' Computes mapped addresses 
7 83 PATSOUT_NUM_ ! Outputs numeric values 
8 83 PATSOUT-PUT~: NOVALUE, i Actually does the terminal 1/0 | 
8 83 PATSOUT VAL, ' Outputs symbol name with value 
8 84 PATSPRIRT_PATH : NOVALUE ' Print out pathnames 
8 84 PATSRESOLVE_INS : NOVALUE, ; Resolves forward references in symbolic in 
' 
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t print case d 
rint CASE dispatc 


! Don’ 
! Pp 


-1984 00:30:29 VAX-11 Bliss-32 V4.0-742 P 
aati 99:29:95 DISKSVMSMASTER=LPATCH. SRCIPATEXA.B32:1> (4 | 


oO 


SWITCHES hae Patel 
GLOBAL ROUTINE PAT BEPOSIT_CMD : NOVALUE = 


'e4 
' FUNCTIONAL DESCRIPTION: 


| 
| 
This routine handles all delete and deposit commands, those for 
instructions and those for values. The instruction(s)/value(s) 
specified in the delete command must be identical to those actually 
contained in the location(s), otherwise an error noses is produced and 
e 
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; 907 1 

3 908 1 

3 909 1 

3 910 1 

; 911 «1 

3 at 1! 

3 915 1! 

3 914 1! 

: 915 1! 

3 2916 1! 

3 917 1! the command ends ype For a deposit command instruction(s) 

; § 918 1! /value(s) specified are written to consecutive locations. The image is 

3 § 835 : } not modified in either case unless the entire command works. 

3 2 $3 me © The command argument List is made up of entries that are 

se $3 § 1! each three longwords long. The first is a forward Link to the 

: 267 9 1! next entry. The second longword in the first entry in the List 

; 268 2924 1! is the address into which some value(s) is (are) to be deleted or deposited. 

; 269 2925 1! The third an go is unused. The second longword in the secon 

: 270 2926 1! and subsequent entries are the values to be deleted or deposited. 

s er 2927 1! The first value should be the contents of the specified location; 

; sf¢ $358 : the second, the contents of that location plus the current mode_length, etc. | 
3; 276 $383 -% For instructions, the increment is the Length of each subsequent 

: 275 2931 1! instruction. The second longword contains the address of a counted byte 

: 276 2932 1! stream that is to be translated into a binary instruction which is the 

; e277 2933 1! old contents of that location. 

; 278 2934 1! 

; 279 2935 1 ! CALLING SEQUENCE: 

: 280 2936 1! 

3 6281 2937 1! PATSDEPOSIT_CMD () 

3 586 2938 1! 

: 28 2939 1 ! INPUTS: 

3; 6284 2940 i! 

3 ed 2941 1! none 

: 286 saeg 1! 

s 267 294 1 ! IMPLICIT INPUTS: 

; 288 2944 1! : 

; 289 2945 1! PATSGL_HEAD_LST, the head of the Linked PATCH command argument List. 

; 290 sae8 2.7 The current mode. 

: 291 947 1! 

; 2948 1 ! OUTPUTS: 

Py 9 2949 1! 
: 94 Saas 1! none 

; 295 951 1! 

; 39 326 } IMPLICIT OUTPUTS: 

; 298 954 1! The values PATSGL_LAST_LOC, PATSGL_LAST_VAL, and PATSGL_NEXT_LOC 
: 299 955 1! are set after each deposit is done. 
; 300 956 1! 
; 301 957 1 ! ROUTINE VALUE: 

; 4 958 1! 

; 30 959 1! novalue 
: 304 960 1! 

2 05 961 1 ! SIDE EFFECTS: 

; $3 236 & ; 

; 95 1! The specified addresses have their values changed. 


a Sees 
PATEXA 16-Sep-1984 00:30:29 VAX-11 Bliss-32 V4.0-742 Pp 9) PA 
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If a failure 


ae 


n awrite occurs, the routine SIGNALS an error. 
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! 

' 
om 
| 
BEGIN 
LITERAL 
NOP_INSTR 
ZERO_BYTE 


ONE _PAGE 
MAX INST_LEN 


Fill char for instructions 
Fill char for data 
Number of pages to expand patch area 
Maximum number of binary bytes in an instr | 


nun 
o-o-— 


6; 
LOCAL 
INSTRUC _BUF: VECTOR CMAX_INST_LEN, BYTE], 
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; 1 

; 1 

; 1 

; 1 

: FILL_CHAR: BYTE, ' FILL character for delete command 

: OLD_ CONTENTS: VECTORCTTY_OUT_WIDTH, BYTE], ! Buffer to hold old contents of location 

3 MAPPED LOC ! Mapped address of deposit destination 
3 1 UNMAPPED_LOC, ! Unmapped address of deposit destination | 
3 8 ISE_ADDR, ! Image section entry for deposit destinatio 
; 98 DEP_SRC_ADR, ! Pointer to deposit source 
3 984 DEP_SI7Z, ! Size of deposit to be made 

3 985 POINTER; 
; 986 

ee 987 '+¢ 

3 ; soos Check that all parameters were specified on the command. | 
; 334 2990 POINTER = .PATSGL_HEAD_LST; 

F $3) 344! t learn EQLA 0) OR (.LIST_ELEM_FLINK(.POINTER) EQLA 0) 

3 339 339 SIGNAL (PATS_INVCMD); 

; 338 994 

3 es 2995 '+4 

; 340 2996 § ! Initialize unmeoped address and PATSGL_CONTEXT. The context bit causes 

; 341 2997 ' the routine PATSOUT_MEM_LOC to display a location instead of evaluating 

; <8 Soe § ! @ numeric expression. 

3 «344 $000 2 UNMAPPED_LOC = .LIST_ELEM_EXP1 (.POINTER); | 
: «345 001 2 PATSGL_CONTEXTCEXAMINE_BIT) = TRUE; 
; 346 Og 
; 7 00 '++ 
3 rt bbs : For DEPOSIT commands only: | 
; 329 006 ! Check if DEPOSIT qualifier, '’/PATCH AREA’, was specified. | 
g SD) 007 ' If so, check that the address specified is identical to the 
; 26 008 ' start of the current patch area. If it is not, report an 
3 sts error and abort the DEPOSIT command. 

s 309 011 IF_ .PATSGL_CONTEXT CPAT_AREA_BIT) 
; 356 pig THEN 

3. Sor 01 BEGIN 

; 28 Bie 3 Brg PATORL PATAREALSSCOM LENGTH EQL 0) 
s : O19 4 Fen ATOR SIMA COSCSA_POINTER] EQLA .PATSGL_IHPPTRCIHPSL_RW_PATADR]) 
; § 018 : He 4 AREACONE PAGE); 

; B33 ; {f. -PATSGL _PATAREA DSCSA_POINTER] NEQA .UNMAPPED_LOC) 


<= 
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3 68 8 _ SIGNAL(PATS_NOTPATADR, 2, .PATSGL_PATAREACDSCSA_POINTER], .UNMAPPED_LOC); | : 
re 8 4 2 te | : 
3 +4 8 5 is Set the fill character for DELETE commands. | : 
: 371 0 5 iF (.PATSGB_MOD_PTR CMODE_INSTRUCI) : 
3 f 4 3 THEN mete : 
; 374 030 PATSGL SYMTBPTR = zPATSGL -NEWLABLS; ! Use new contents Label table : 
: Le 3 1 at L_CRAR = NOP_ INSTR ' Fill character for instructions : 
i 37" 3085 2 eLse | : 
: 378 034 FILL_CHAR = ZERO_BYTE; ! Fill character for data : 
4 80 8 A 'e4 : 
; 3 03 Loop to DEPOSIT (DELETE) all parameters specified in the command. | : 
; HY 039 2 REPEAT : 
; 84 040 BEGIN é 
; 385 041 POINTER = .LIST_ELEM_FLINK (.POINTER); : 
: a 003 lee : 
; 388 044 ! Now determine the Length of the instruction or data 3 
3 +4 bee ! which is to be deposited or deleted. : 
: 391 047 iF .PATSGB_MOD_PTR CMODE_INSTRUCI | : 
; 39 048 THEN 3 
3 i, Rep ? BEGIN : 
: 395 051 4 "This is a symbolic instruction to be deposited or aa : 
; 396 so28 4 ' It is currently in the form of a counted ASCII eteing to 3 
; 397 3053 4 ' must be translated into binary form. The call to PATSINS ENCODE § 
; $95 054 4 i needs the address for which the instruction is encoded in 3 
; ine Bae : 0 order to resolve branches correctly. : 
; 401 $037 4 if NOT iy ny ENCODE (. Hh ELEM_EXP1 (.POINTER), : 
: 40 058 4 IMs RUC BUF, .UNMAPPED LOC, 5 
; 40 059 5 yet POAT ECL -CONTEXTCDECETE BIT) : 
: 404 060 5 THEN PAT$GL_OLD_ASD 3 
; 405 061 4 Ese PATSGL- “NEW ASD), 3 
; 406 beg 4 PATSGL_TEMP_BUF ) : 
; 407 063 4 THEN = Fe ; ae ; 
; 408 064 4 SIGNAL (PATS oe tithe 4b ae , eLIST_ELEM_EXP1(.POINTER)); ! This instruction is invalid. : 
; 409 065 4 DEP _SRC_ADR = INSTRU By é 
3 rh pes ? per "$12"= . INSTRUC Oor 0]; : 
; 41¢ 068 3 ELSE ; 
3 e127 st 2 BEGIN g 
: 415 071 4 i yp Sr length and address for deposits or deletes which are : 
3 $16 O76 ? in not symbolic instructions. Then check for truncation of new value. : 
: rh | Boe 4 DEP. SRC_ADR = LIST _ELEM_EXP1 (. POINTER); F 
3: «41 75 4 P“SIZ~= .PAT$GB_AMOD PTR CMODE LENGTH; 3 
3 $30 076 5 IF T.LIST_ELEM_ The OBDINTERS LSS 0 3 
s 621 077 & THEN - 
| 
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$ep-1984 VA 
1b-Sep-1984 00:50:28 AK 
BEGIN 
i « (LIST_ELEM_EXP1(. POINTER) )<0, -DEP_S1Z*8, 1> NEQ -LIST_ELEM_EXP1(. POINTER) 
SIGNAL (PATS_NUMTRUNC) ; 


X- 
SKSVMSMASTER: CPATCH.SRCIJPATEXA.B32; 1 


END 
IF 5 (LIST ELEM_EXP1 (POINTER) )<0, .DEP_SIZ*8, 0> NEQ .LIST_ELEM_EXP1(.POINTER) 
SIGNAL (PATS_NUMTRUNC) ; 


ELSE 


'e¢ 
i Now write the new values into a temporary buffer. They are not 
x written directly into memory in case part of the command fails. 


PATSFILL_BUF (PATSGL_TEMP_BUF, .DEP_SRC_ADR, .DEP_SIZ); 


lee 
i Finished with current value. Reset Last location, 
i next location, and last value, and exitloop. 


ie 
PATSGL LAST LOC = UNRAPPED 
UNMAPPED LOT = PED 5 i ep $12; 
if NOT .PATSGB _MOD_ PTR PRboE. INSTRUC 
PATSGL_LAST_VAL = .LIST_ELEM_EXP1 (.POINTER); 


44 
i If there are no more values, then exit loop which builds 
it temporary deposit buffer. 


if (.LIST_ELEM_FLINK (.POINTER) EQLA 0) 
EXITLOOP; 
END; 
'ee 
For DEPOSIT command only: 
i First check if this is writing into the patch area. If so, check ey there 
i is enough room in the patch area. If not, then expand the patch are 
i pose toie (that is, if the current patch area is the one defined int the image 
i header). Otherwise, report an error and abort this command. 


iF -PATSGL_CONTEXTCPAT_AREA.B1T] 


BEGIN 
LF (PATSGL_ PATAREACDSC$W_LENGTH] LSS .PATSGL_TEMP_BUF(DSC$W_LENGTH]) 


BEGIN 
IF (.PATSGL_PATAREACDSCSA_POINTER] EQLA .PATSGL_IHPPTRCIHPSL_RW_PATADR)) 


PATSEXP_AREA((, POT ORcE e nyUA PACE) LENGTH] + 


SIGNAL (PATS INSUFPAT .PATSGL_TEMP_BUF [DSC $W_LENGTH), 
PATSGL JPATAREACDSCSA® POINTERT, 


ELSE 
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000 1er8ep= 138s 93:83:83 UN SUmGuASTeRs CoAT ON ShcIPATEKA.83204° 
479 -PATSGL_PATAREACDSC$W_LENGTH)); 
480 END; 
i END; 
89 
4 14+ 
tke Now resolve any forward references inside the symbolic instruction operands. 
486 PATSRESOLVE_INS(PATSGL_TEMP_BUF); 
488 '++ 
ret Output the old values. 
491 PATSGL_NEXT_LOC = .LIST ELEM_EXP1(.PATSGL_HEAD_LST); 
‘3 WHILE TPATSGL_NEXT_LOC CSSA TUNMAPPED_LOC 
rn) PATSOUT_MEM_LOC(.PATSGL_NEXT_LOC, OLD_TAB_STG, PATSGL_OLD_ASD, CASE_TABLE); 
496 lee 
497 ! For DELETE commands only: 
$38 ! 


i york ts that the old values were actually in memory for DELETE commands. 
Then fill the temporary buffer with the appropriate fill character. 


IF_ .PATSGL_CONTEXTCDELETE_BITJ 
THEN 
BEGIN 
ees 
! Now get the actual value in the location and 
check that it equals the specified value. 


BYTE_COUNT, ee 
F_SIZE; '§ 
BYTE 


COUNT = 0; 
WHILE (.BYTE_COUNT LSS .PATSGL_TEMP_BUFCDSC$W_LENGTH)) 


unt of bytes verified 
ze of old contents buffer to get 


BEGIN 
IF ((BUF _SIZE = .PATSGL_TEMP_BUFCDSC$W_LENGTH] - .BYTE_COUNT) GTR TTY_OUT_WIDTH) 


BUF _SIZE = TTY_OUT WIDTH; ! st et hy only as much as buffer can hold 
PATSGET_VALOE(.LIST_ELEM_ERP1(.PATSGL_HEAD_LST)+.BYTE_COUNT, 


-BOF_SIZE, OLD CONTENTS) 
IF CHSNEQ(.BUF_SIZE, TPATSGL_TEMP_BUFCDSC$A_POINTER]+.BYTE_COUNT, 
nino -BUF_SIZE, OLD_CONTENTS) 


SIGNAL (PATS_DIFVAL+MSG$K_WARN) ; 
BYTE_COUNT = .BYTE_COUNT + .BUF_SIZE; 


CHSFILL(.FILL CHAR, .PATSGL TEMP BUF CDSC$W_LENGTH], 
-PATSGL_TEMP_BUFCDSCSA_POINTERJ); 
END; 
lee 
Now write the temporary buffer into memory. 


PATSGL_NEXT_LOC = st1st ELEM_EXP1(.PATSGL_HEAD_LST); 
PATSWRITE_MEM (.PATSGL_NEXT_COC, .PATSGL_TEMP_BUFCDSCSA_POINTER), 
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a eet 1 90:39:93 DISKSVMSMASTER:CPATCH.SRCIPATEXA.B32:1> (4 
-PATSGL_TEMP_BUFCOSCS$W_LENGTH)); 


'+¢ | 
: Output the new values. 


~w 


END; 
'o4¢ 
Now add the new Labels to the user-defined symbol table. 


| 
4 : 
: WHILE .PATSGL_NEXT_LOC LSSA .UNMAPPED_LOC 
2 PATSOUT_MEM_LOC(.PATSGL_NEXT_LOC, NEW_TAB_STG, PATSGL_NEW_ASD, CASE_TABLE); 
4 i Now check if the deposit was into the current patch area. If so, 
re update the patch area descriptor. 
4 If .PATSGL_CONTEXT CPAT_AREA_BIT] 
3 ec BEGIN 
5 PATSGL_PATAREACDSCSA_POINTER] = .PATSGL_PATAREACDSCSA tly + 
5 -PATSGL_ TEMP Bur tDSCsa LENGTH); 
5 PATSGL_PATAREALDSC$W_LENGTH] = .PATSGL_PATAREA fete: LENGTH) - 
é -PATSGC_TEMP_BUF CDSCSW_LENGTH); 
5 
5 
5 
5 


PATSADD_LABELS(PATS$GL_NEWLABLS) ; 
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: RETURN; 
1 END; 


IDENT \V04-000\ 


| 
| 
| 
-TITLE PATEXA 
-PSECT _PATSPLIT,NOWRT ,NOEXE ,0 
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0g 00000 P.AAA: .BYTE 2 : 
30 52 00001 eASCII \RO\ : 
00 00003 -BYTE 0 : 
9s 00004 -BYTE 2 3 
31 52 90005 eASCII \RI\ : 
00 00007 -BYTE 0 3 
02 00008 -BYTE 2 3 
32 52 00009 eASCII \R2\ : 
Bp one «BYTE 8 : 
00Cc «BYTE : 
33 52 0000D eASCII \R3\ 3 
0 O000F -BYTE 0 : 
0010 OYTE 2 : 
34 0011 ASCII \R4\ : | 
0013 BYTE 0 : 
0014 -BYTE 2 : 
35 0015 eASCII \RS\ : 
00 00017 -BYTE g : 
0018 -BYTE 3 
36 0019 -ASCII  \R6\ : | 
Baie -BYTE 0 ° 
2 o1Cc -BYTE 2 : 
| 
| 
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PATS$FREEREL 
PATSFREEZ PA ATSGE 
PATS$GET_VALU gets ins: SE CODE 
PATSINS ~ENCODE, PPATSMAP _ADDR 
PAT$OUT~ 


=NUM_VAL 
PATSOUT-PUT, PATSOUT_SYM VAL 
PATSPRINT_PATH, PATSRESOLVE_INS 
PATSSTHaO C_VALU 
PATSUNMAP -ADOR. PATSVAL_TO_SYM 
PATSWRITE-M 
ACCESS_ CHECK 


_PATSCODE .NOWRT , 2 


PATSGL_HEAD_LST, POINTER 
(POINTER) 
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1. PATSGL-CONTEXT+2, 4$ 
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PATSEXP_AREA 
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176482 
LIB$SIG 
Beat MOD. ork. RO 
BATSct REMLABLS, PATSGL_SYMTBPTR 


-v 


V4. 
CPATCH. SRCIJPATEXA.B32; 


oh e's TE al Save R2,R3,R4,R5,R6,R7,R8,-; 


on eee BRO or wT worswn Oo oO ~w om Comer MO ow @ oO 
vs NMS HM ww oOo ouorenre SF t°] ao Oo Coo oo num ™N wal 
~ oooco oo oo o oooceoo So ©& o Ge © ocr -——_— = coo 
- PETE BE mes ~» MMM Mm Mm La) mo Me Moy soe mo Me ~~ 
ao Pe rarearte tera tate te "e tetera tare rare SPSS SHS HSS HS HS HSS HSS HESS OSHS HS SS HE FEH HSCS SCR HS FS FS FSCS SCS SCS HOSS CS SO FETE te 
on 
Qs. 
c 
~m 
@ 
2 
xt 
oe 
| w 
| L od 
| = 
a 
| te] oH 
| =) -_ 
| Las] * 4 wo 
| ea, =) ‘ 
| ™m « oO a 
| ‘x a) aad = 
ow a t < ws 
ao a _ > Ar 
we A < ” u ~ | 
>a. ~ ' .-« _ - 
us Vv - - _ ” o | 
| NM . cs 4 az a LS) < oA | 
| ma N mm jo ad Ne } 
tw a = . . ou a +< oOo | 
| ne eco -oOo Oo uw an ago ~ ~ A wo -aA =— « | 
awn wa <oc a w | oc « a -oc 09 =< Zo | 
—< co ws oS oa <« ws [vv wow A ws [+ 4 . 
~= zs. —s 8s = uw ts or OF Saas — 7 . ~_ 
naw ma 2a & 2 + ao VeCcn~ e2 a22z-~ ad Oo ac < Zu «s+ = 
= or ow ow ua <i -— _ oid 4 < ie-<te a oc wen @ 
-> aa vat <tc YY t z+ * awn sO "Ow = <5 vt &£eO ’ 
—-A ' te ‘ou Ounun ee xno ~6Oe o ec wJjO a . —- «ac & 
4 ae8@ 4OoO 3 wD sez peg I aaoan =~ s~wZz -—- 2 —iIDAae0a-~ J<« -Oo~ = 
=<wm ae-oo Ou WwW oc « “om wOweke WF WT ”o << wm | ovranr oa <a<5toO w 
<ze <aet- #0 2 2 wr w OHM 1 i OFQw ‘ ‘(one | AO sEB-wes fA t+ AN 
>a xw 1 -— 6 twere-— —-— NOVY (ee Qs @&@ Ga WONYCS ew toe - 4 ‘te a 
VeO@e Cy § ADdZSIRH]S? wWeidDD Oz wo WO~ Vee CO @ Ze ao aj * J 
eco-~ aa Oo QAacAC = OYEe On Ge Oocs OAIMM AAKHUA2Z aewe oOo- 9 
o-=-AO fA <t-O oO KF Oe 6NMOCO ~ Le <= wmoo-- —- AA-— A 
Hora —- —-& £Bwa = A — MwA eaAes *§ WM + s+ He 200 Meteo RS Ded eel * Sg Del 
Om 86-30 a~ODO AH CO]ZZ~NOY KP MZ ZMH Lee K—MOUMO RK MR — WWM) Zu ~~ AINMMOK et r~O 
NP OU W~OMMTBOO48. SDT RETR BBs TO Se BSB BR BBOOTteV OOamMsTw~n-O28B2G--A07--2 
or 
mw @ ) =~ — 
oo ee 3 @ O44 4HM YBIIMOD 9 @ > 4INM4I4M ~w > 2 
or Ouowr < ee ee ie ee ee ee ee on ICG U> 2IN4I4I 5 YT 30 44 I0™ 
So— OF PrPOKVV PS O>MOMwNH YOM MVYMYU>>O0>> 52 wt @Ort-aA0HU4MMNKHYU>a>a >> SO 3V%Ow> Saw> 
TT DvVTETMAMFTMEQAAAAMAACAVTTOZTS+AdetwOdtwo@Mavotadaaveae TOF DOOO OZIZ DD 
oan 
wr 
oe 
aa - o 
wee oe os a a af a ry aA 
wn AA AR aa Oo - Nw ~m wT nw 
ee mo mo oa - r- - _- - - 
mow 


SS — OORT WIEST OMIM OWI O DOPNMN DOWIE OD UMP ££ VOOD VVNOD WR MAE WIN POO eV EWM Ee 
2420 fC fF MMDMVVVVON OCOD WW WWW & O00 NIIP ST ST TUNA OO OPR-P-P-P- O 
ooo DOOOOCOCOCOGOOSSOOSOSOSOSO}O © 
oo COOOCOCOCoCOOoO OoCoooo ooocKeeo DOOCCOCCOCOCOCOCCOCOCOOOCOoOoOoOoOoOoOoOooO 
OOoCCOOCOOOSCO polo lolelolo) SOOCCCOGSOOCOCCCOCOCOSOOOCOOOOOOOOOOOOOOoOOoOO 


—TOOSC Oe We WOGBu OMDWOOOOW< —- WO INOOwWe-Du MODASCODOOCOCD OMe — —- WOOK NY 
—O BOWOWC POO Gu wWwOoooduDtOn OOS Om Wek WOR Ou COOu OYVOoOWOOeK—Mwa-Aacer-m™ 
P-L ODD & OCWONMNON — 4918 BON OM BMD IT OPI OP OCU CUPMI CUP OOO te. OOD 
COWOWTMNOWOWNWN F< LOM LOOO f< IM wT LOOOOCOCOMODOMMNNOMMwW < LOOT OO Owe O 
aA 
ae 


o o oo oO o Oo 
om o Oo ow zr < «Oo wWOorw ~ oma oO ow 
oo o Oo ao o oOo ofa ooooe ™N ooo o oo 
Oo o Oo - oO o So So 
o o Oo Le) oO co D> So 
oOo o oOo a o a o o 
So oo Se) o oO So f=) 
o o oOo oO So o So o 
oO o Oo o o o So oO 
Noo «Oo CO wu ovwnm wom Mo Mow br wu OODu uco -OO © 
wnsTr Ww WwW wo OWm mn Wn wand WWI O© ws wo mmc w 

oO ike] >o ©o © 

oOo o wT oo [=] o w 

oO oO o oo o o - 

So oS oo So So 

oO So oo Oo So 

o o oo o oS 

o o oo o o 

o oOo oo So oS 

oO oO oo oO oO 

o oN om od 

oO wc we ~w 


5 
PATEXA 1b-se =-1984 :30: VAX-11 Bliss-32 V4.0-742 Page 17. 
v04-000 12-808-1 882 99:39:93 DISKSVMSMASTER: LPATCH. SRCIPATEXA.B32:1> 4) 
50 O1FF 0 4 0184 MOVAB 511(RO), RO : 
E 0 00000200 &F ¢C Or 9 DIVL3 #512, RO, -(SP) ; 3131) 
000000006 EF 1 FB 00191 CALLS #1, PATSEXP_AREA : 
18 11 00198 BRB 17$ : 3130) 
7E 00 89 3 019A 168: MOVZWL @PATS$GL_PATAREA, =(SP) + 3135 
50 69 DO 0019E MOVL §PATS$GL_PATAREA, RO 3 3134) 
04 Ad bd Hany PUSHL 4(R : | 
7E 6 C 001A4 MOVZWL PATS$GL_TEMP_BUF, -(SP) + 3133) 
2 DD OO1A7 PUSHL # : | 
006D80C2 BF DD 0 1A9 PUSHL #7176386 ; 
68 0S FB OO1AF CALLS #5, LIBS$SIGNAL : 
58 DD 00182 17$: PUSHL : 3142 
000000006 EF 01 FB 001B4 CALLS #1, PATS$RESOLVE_INS ; 
50 000000006 EF DO 0188 MOVL PATSGL_HEAD_LST; RO + 3147 
6A 04 AO 00 001C MOVL  4(RO), ~PAT$GL_NEXT_LOC ; 
56 6A 01 001C6 18S: CMPL - PAT$SGL_NEXT_LOC, UNMAPPED_LOC : 3148 
19 1€ 001C9 BGEQU 19% : 
01 DD 001CB PUSHL #1 : 3150 
000000006 EF 9F 001CD PUSHAB PAT$GL_OLD_ASD ; 
00000000" EF 9F 001D3 PUSHAB OLD TAB STG ; 
6A DD 00109 PUSHL PATSGL_NEXT_LOC : 
00000000V EF 04 FB 00108 CALLS #4, PATSOUT—MEM_LOC : 
4F 000000006 EF 06 £1 OO1E 19$: BBC #6, PATSGL_CONTEXT+2, 24$ + 3158 
54 D4 OO1EC CLRL - BYTE_COUNT : 3168 
54 68 10 00 ED OO1EE 20$: CMP2V #0, #16, PATSGL_TEMP_BUF, BYTE_COUNT : 3169 
3F 615 OO1F BLEQ : 
68 3¢ 001F5 MOVZWL PATSGL_TEMP_BUF, BUF_SIZE : 3172 
55 54 C2 001F8 SUBL2 BYTE_COUNT, BUF _SIZE : 
00000084 8F 55 D1 OO1FB CMPL BUF_SIZE, #132 : 
04 15 00202 BLEQ ; 
55 8F 9A 00204 MOVZBL #132, BUF_SIZE > 3174 
4020 8F BB 00208 21$: PUSHR #*M<RS, : 3176 
50 000000006 EF D0 9920¢ MOVL _—- PAT$GL_HEAD_LST, RO : 3175 
04 8044 9F 0021 PUSHAB @4(RO)CBYTE_COUNTJ 3 
000000006 _ EF 03 FB 90217 CALLS #3, PATSGET~VALUE ; 
6E 04 B844 55 29 O021E CMPC3 BUF_SIZE, @PATSGL_TEMP_BUF+4(BYTE_COUNTJ, - ; 3177 
OLDCONTENTS ; 
09 13 00224 BEQL $ : 
00608290 8F DD 00226 PUSHL #7176848 : 3180 
68 01 FB 0022¢ CALLS #1, LIBSSIGNAL ; 
54 55 CO OO22F 22$: ADDL2 BUF_SIZE, BYTE_COUNT : 3181. 
BA 11 00232 BRB $ : 3169 
68 57 bE 09 2c 99 23$:  MOVCS (SP), FILL_CHAR, PATSGL_TEMP_BUF, - > 3184 | 
04 8B 0239 aPATSGL_fEMP BOF +4 ; 
50 000000006 EF 00 00238 24$:  MOVL PATS$GL_READ CST : 3190 
6A 04 AO p 00 42 MOVL  4(RO), PATSGL_NEXT_LOC ; 
7E 68 3C 00246 MOVZWL PATSGL_TEMP_BOF, -TSP : 3192 
04 A&B DD 00249 PUSHL PATSGL~TEMP~BUF : 3191 
6A DD 0024 PUSHL PATS$GL~NEXT~LOC ; 
000000006 Ef 03 FB 00 4 CALLS #3, PATSWRITE MEM : 
& 6A D1 00255 258: CMPL = PATSGL_NEXT_LOC, UNMAPPED_LOC : 3197 | 
19 1€ 0 § BGEQU 268 ; 
01 po A PUSHL #1 : 3199 
000000006 EF 9F 00 PUSHAB PATS$GL_NEW_ASD : 
00000000' EF 9F 0026 PUSHAB NEW TAB ST ; 
6A DD 0026 PUSHL PATSGL_REXT_LOC ; 


dD 5 
PATEXA 16-Sep-1 VAX=11 Bliss-32_V4.0- Page 1 
04-000 Pacer Re 19: ee es NN OhAStERcChAT ON SRCOPATEXA.B32¢4°° cas 
00000000v EF 04 Fe $A CALLS sis PATSOUT_MEM_LOC : 
13 000000006 EF Fe E1 it 26$ BBC PAT$GL_CONTEXT+2, 27$ : 3204 
0 69 9 7B MOVL PATSGL P ATAREA, RO : 320 
1 69 7E PATSCL-PATAREA 1 : 
. é 3c 1 MOV2WL PATSGL~T MP8 UF Re : 3208 
06 A 04 B14 t 0 MOVA a4 (RI YER : Fg : 
00 B89 68 Ad 0028A SUBW TEMP BUF. ) sPATSGL _PATAREA : 3210 
000000006 FF 9F OO28E 278 PUSHAB PATS&L~ NEWLABL + 3215 
000000006 EF 1 FB 00 94 CALL  SBATSADD _LABELS ; 
04 00298 RET + 3219 
; Routine Size: 668 bytes, Routine Base: _PATSCODE + 0000 


: 564 


3220 


1 SWITCHES OPTIMIZE; 


Ssh sees - . ~5 


5 
1$-Se0-1986 00:30:28 


GLOBAL ROUTINE PATSEXAMINE_CMD : NOVALUE = 


X=11 
SKSVM 


Bliss-32 V4.0-742 Page 
SMASTER: CPATCH.SRCJPATEXA.B32; 1 


144 


i FUNCTIONAL DESCRIPTION: 


OOO 
way andl 


| 
Examines a list of addresses. | 
CALLING SEQUENCE: | 
PATSEXAMINE_CMD () | 
INPUTS: 
none 
IMPLICIT INPUTS: 


The address of the first element of a list of addresses. 
The last address examined, and the next logical address to examine. 


OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
New values for last and next location, and last value 


O00 ODWOWOWDDOWOOWOON SINAN NNN 


DV LUPUS PV SV SV SV SVS STS ISIS STS SSIS SISSY 
FUN — OOONOAUSWND “OC OONOUSWN—O 


Re ee ee ee ee ee ee 


POPEMPOPOPOPMIWIPONONPPINONODD 2 tt 9 


9 ROUTINE VALUE: 

595 

596 novalue 

597 

rh SIDE EFFECTS: 
600 The values of various addresses are output. 

601 If an error occurs, the routine returns without further 

602 processing except to output an error message to the output 

603 device. 

604 

605 -- 

606 

607 BEGIN 

608 
609 LOCAL ; 

610 MAPPED _NEXT_LOC, } Repped address of next location 
611 26 ISE . ! ISE address for mapped address 
ote 26 POINTER; 
61 26 

614 26 POINTER = .PATS$GL_HEAD_LST; 
615 27 IF (.POINTER EQL 0) 
616 7 THEN 
617 7 
618 7 'e¢ ; : 

ol $7 No location was specified. Examine the next location in sequence. 

631 37 PATSOUT_MEM_LOC (.PATSGL_NEXT_LOC, 0, PAT$GL_OLD_ASD, CASE_TABLE) 


| 
ELSE DO | 
} 
| 


PATEXA 
v04-000 


s 625 78 
; 624 79 
: 625 80 
; 626 81 
3; 627 Ht 
; 628 } 

; 629 4 
; 650 85 
; 631 86 
s 6 ¢ 87 
: 88 39 
: oz 90 
; 636 291 
; 637 $36 
; 638 $59 

; 639 294 
; 640 $537 
3 641 3296 
: 64 3297 
: 64 3298 
; 644 $839 
: 645 : 00 
: 646 301 
3 647 $308 
: 648 330 

3; 649 3304 
: 650 3305 
; 651 3306 
: 652 3307 
; 653 3308 
3 654 3309 
; 655 3310 
: 656 3311 
; 657 Ha 
; 658 331 

; 659 3314 


2 

16-Sep-1984 00:30:29 VAX=11 Bliss-32_ V4.0- 

13288b-1 382 99:35:43 DISKSVMSMASTER: CPATCH 
BEGIN 


LOCAL 
LAST_LOC; 


le 
! Pick up the next value which we will try to 
display and copy it into LAST_LOC. 


LAST_LOC = .LIST_ELEM_EXP1 (.POINTER); 


le 
! If the end range argument is null, then make it the same as the start 
range argument so that only one location will be displayed. 


if .LIST_ELEM_EXP2 (.POINTER) EQL 0 
THEN LIST_ELEM_EXP2 (.POINTER) = .LIST_ELEM_EXP1 (.POINTER); 


144 
Check for range reversal. 
IF ¢ |-LIST_ELEM_EXP2(. POINTER) LSSA .LIST_ELEM_EXP1(.POINTER) ) 


BEGIN 
SIGNAL (PAT$_EXARANGE) ; 
RETURN; 


END; 
WHILE (LAST LOC LEQ .LIST_ELEM_EXP2 (.POINTER)) DO 


IF NOT PATSOUT_MEM_LOC (.LAST_LOC, 0, PATSGL_OLD_ASD, CASE_TABLE) 
THEN RETURN; 
cata = .PATSGL_NEXT_LOC; 


END 
NTIL (POINTER = .LIST_ELEM_FLINK (.POINTER)) EQL 0; 


~—MMWNE FS SUS BS EWE AWN 


mm ¢€& 
z 
o 
ee 


007¢ 00000 -ENTRY PATSEXAMINE_CMD, Save R2,R3,R4,R5,R6 
56 90000000y EF 9E 99008 MOVAB PATSOUT MEM“LOC. R 
0000006 EF 9E 0000 MOVAB PAT$GL_NEXT-LOC. 

54 000000006 EF 9 9019 MOVAB PAT$GL~OLD_ASD 
52 000000006 EF 00 00017 MOVL § PATSGLHEAD_LST, POINTER 

0c 12 OO0iE BNEQ 1$ 

01 DD 0002 PUSHL #1 

54 DD 00022 PUSHL 4 

7E D4 00024 CLRL. = = (SP) 

65 DD 00026 PUSHL  PATSGL_NEXT_LOC 
66 04 FB 00028 CALLS #4, PATSOUTMEM_LOC 

04 00028 RET 
53 04 A2 00 0002C 18: MOVL 4(POINTER), LAST_LOC 
8 A2 05 000 6 TSTL 8 (POINTER) 
05 12 000 BNEG 28 


| 
5 
PATEXA 18-sep 1984 VAX=-11 Bliss-32 V4. 1) 
v04-000 14-Sep ats 99: 33: $3 DISKSVMSMASTER: LPATCH, SACIPATEXA. B32. 79 ° 8 
08 A 0¢ A200 00035 MOVL  4(POINTER), 8(POINTER) 3 94 | 
s A 8 Ae pt A 2$ CMPL (POINTER), 4 (POINTER) + 3299 
O06D80AA Ht DD 0 41 PUSHL #7176362 : 3302 
000000006 00 1 FB 00047 CALLS #1, LIBSSIGNAL F 
04 OO4E RET + 3301 
08 A2 53 D1 OO04F 3% CMPL - LAST_LOC, 8(POINTER) + 3305 
13 14 0093 BGTR : 
01 DD 0005 PUSHL #1 : 3307 
4 Dd 00057 PUSHL  R4 ; 
ze D4 00059 CLRL v (SP) : 
53 DD 0058 PUSHL LAST ; 
£é 04 FB 00050 CALLS #4, phe Sour _MEM_LOC F 
OA 0 €9 9060 BLBC ; 
53 65 D0 0006 MOVL §§ PATSGL_NEXT_LOC, LAST_LOC + 3309 
E7 11 00066 BRB + 3305 
52 62 DO 00068 4$: MOVL (POINTER), POINTER + 3312 
BF 12 0006B BNEQ 1$ ; 
04 00060 5$: RET + 3314 
; Routine Size: 110 bytes, Routine Base: _PATSCODE + 029¢ 


PATEXA 


P 
v04-000 age 


1984 00:30:29 VAX=11 Bliss=32 V4.0-742 
713bc 99:33:43 DISKSVMSMASTER: CPATCH.SRCIJPATEXA.B32; 


oO 
Oo 


H $6) i ! GLOBAL ROUTINE PATSREPLACE_CMD : NOVALUE = | : 
; 66 13 1 4+ . 
: ree) 18 : FUNCTIONAL DESCRIPTION: : 
: 666 9 i} This routine handles all REPLACE, INSERT and VERIFY commands, those for . 
; 667 28 instructions and those for values. The instruction/value specified in ; 
; 668 ¢ 1! the command must be identical to those actually contained in the ; 
; 669 1! Location, otherwise an error message is produced and the command : 
; of ¢ : ends prematurely. ‘ 
s 67 $ 1} The command argument List is aon up ef entries that are : 
; 67 1: each three longwords long. The first is a forward Link to the ; 
> 674 Be next entry. The second longword in the first entry in the List . 
; 675 3e9 1! is the address into which some value(s) is (are) to be replaced. : 
; 676 330 1! The third lLongword is unused. The second longword in successive ; 
; 677 , 33 arguments is the old values/instructions and thier replacemeents. : 
: 678 ¢ 7! The first value should be the contents of the specified location; 3 
; 679 . Se the second, the contents of that location plus the current mode length, | ; 
; 680 334 1! etc. The last old value has an EXIT_TOKEN in the third longword : 
; 681 335 : (all others have zero). ; 
; 68 EET 1! For instruction replacement, the second Lonquord contains 3 
; 684 $35 7% the address of a counted ascii stream that is to be translated F 
3 eH $875 : into a binary instruction. | : 
; 687 3341 1! The VERIFY command is identical to the replece command save | F 
; 688 $208 1! that it has no replacement values. The INSERT command has only one $ 
; 689 3345 1! old instruction and causes it to be moved to the patch area instead : 
3 £90 3345 : of replaced. | : 
: 692 346 1 ! There are three Label tables used to differentiate between old labels, $ 
: 693 3347 1! new un-relocated labels, and new relocated labels. The table(s) used : 
; 694 3348 1! to resolve symbols inside symbolic instructions Copends updon which : 
; 695 3349 1! instruction is being encoded (old or new) and whether or not they are : 
; 696 3350 1! being relocated to patch area. Three tables are necessary to handle ; 
; 697 3351 1! relocation correctly, i.e., old Labels can be used for all instructions ; 
: 698 3326 1! but new labels cannot be used for relocated instructions. No Labels 3 
3; 699 355 1! can be added to the user-defined symbol table until the PATCH command : 
: 700 $3e¢ 1! is successfully executed. 3 
: 701 355 1! 3 
3; 702 356 1 ! CALLING SEQUENCE: é 
: 703 Sor af r 
: 704 $25 1! PATSREPLACE_CMD () 3 
3; 705 39 1! 3 
: 706 360 1 ! INPUTS: 3 
s for 361 1! 3 
; AN 306 ! none : 
; at He } : IMPLICIT INPUTS: : 
: at 366 1! PATSGL_HEAD_LST, the head of the Linked PATCH command argument List. : 
3 2 367 ! } the current mode, and the current patch area descriptor. : 
3 715 365 1 ! OUTPUTS: ; 
; 716 ; > % 3 
3; 717 71 1! none 3 


Pry08d $3:85589 — DIAKSVMGMASTERSCPATON SACIPATEKA.B3204°" (33 


PAT 


2 
p Re. 
— 


} 5 
x 16-Se 
14-Se 


4-H 


VIFWN—OVOONOUFS WN —O0O@W 


IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 

novalue | 
SIDE EFFECTS: 


—OOONOUS wr 


COONAN NN 


PAAR O Oo ts try oe 
FW OOOnoufur 


If a failure in a write or contents verification occurs, 

the routine returns immediately. If the command is executed 
puccesstulty. then the specified addresses have new values and any 
Labels in the command are added to the user-defined symbol table. 


BEGIN 
LITERAL 


Bi Ni i i Nin ii in iin, in in De in a in in i Si it 


NOP_INSTR = 1, ' FILL character for instructions 
ZERO_BYTE = 0, ' fill characters for data 
ax 


MAX_INST_LEN = 80; ! imum number of binary bytes in an instr 


WWN AAA NIAAA AAA AAAAANANANA 


LOCAL 


Sse 


SSSSSSS5589 
ROPQPIPOPOPOPIPOPOPOPIPI PUNINPUNINIPINPINPINPIPUNINPININININININININININININININ 2 OO OO SP OO Ot OO OO 
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BUF SIZE ! Size of OLD CONTENTS to compare 
INSTRUC_BUF: VECTOR CMAX INST_LEN, BYTE] 
OLD_CONTENTS : VECTORLTTY_OUT-WIDTH BYTE), Buffer to hold actual contents of location 


PED LOC 
OLD_VALUE_PTR : REF VECTORC.BYTE), 
VAL7S1 

HOLE SIZ, 


Unmapped address of DEPOSIT destination 
Pointer of actual contents of location 
Size of current value/instruction 
Cumulative size to replace 

Pointer to next consecutive location 
Fill character for data/instructions 


ooooo 
Uewn— 


Number of bytes of old instruction moved f 
! Pointer to first new instruction argument 


z 

m 

a 

4 

_ 

2 
“ouwaro-m™ 
tt oO 
vv 

tee 

ze 

ere 


'e¢ 
Check for required parameter. 


POINTER = .PATSGL HEAD LST; 
IF (POINTER EQLK 0) OR (-LISTELEM_FLINK (.POINTER) EOLA 0) 


SIGNAL (PAT$_INVCMD) ; 


a ed ed ed td od BOOED 
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SAAN NNN 
, a et et et eh ah oho 
- OO 
SPAT II III II LOE EE 
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lee 
: Set the examine bit for PATSOUT_MEM_LOC. 
PATSGL_CONTEXT CEXAMINE_BIT) = TRUE; 

UNMAPPED_LOC = .LIST_ELEM_EXP1 (.POINTER), 
NEXT_LOC™= .LIST_ELEM_EXPT (.POINTER); 


HOLE~SIZ = ; 
PATSGL_SYMTBPTR = .PATSGL_OLDLABLS; ! Use old contents Label List 
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| 
BYTE_COUNT, ' Count of bytesverified 
| 
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| 

v04-000 | 

; 17> 429 ++ | ; 
3 a 4 ? ' Now loop, validating the old contents are the sees yee veieys. ° 
: aks r } The Last old value argument contains an EXIT_TOKEN in position LIST_ELEM_EXP2. : 
; 779 4 i REPEAT ; 
3; @ 434 BEGIN 3 
; t 1 4 5 POINTER = .LIST_ELEM_FLINK (.POINTER); | : 
: 7 ‘ 4 $ 1+ 3 
3; 7 4 3 ! Now compute the binary instruction stream that should be in : 
; 785 4 ! the location. 3 
P4 ree 440 = : 
i. 441 IF .PATSGB_MOD_PTR CMODE_INSTRUC] , 
; 788 ry THEN : 
; 789 4435 4 BEGIN : 
; 790 444 4 '++ 3 
; 791 445 4 ! This is a symbolic instruction. It is currently 3 
3; 446 & ! in the form of a counted ASCII eee es that must be translated : 
; 79 447 & ! into binary form. The call to PATSINS_ENCODE needs the address 3 
; 796 448 4 ! into which the instruction is being deposited in order to ; 
; 0 4) re 2 ! resolve branches correctly. ‘ 
; 797 451 4 IF NOT PATSINS_ENCODE (.LIST_ELEM_EXP1 (.POINTER), : 
; re 136 ? a INSTRUC_BUF, .NEXT_LOC, PATSGL_OLD_ASD, PATSGL_TEMP_BUF ) : 
; 800 454 4 SIGNAL (PATS cae 1, .LIST_ELEM_EXP1(.POINTER)); ! This instruction is not vali : 
; 801 455 4 OLD_VALUE_PTR = INSTRUC BUF C1); ; 
; 80 456 4 VAL-S1Z =". INSTRUC_BUF [0]; 3 
: 80 457 4 ND 3 
; 804 458 3 ELSE 3 
; 805 459 4 BEGIN : 
; 8 460 4 +4 3 
: 80 461 4 ' Value is not an instruction. Therefore it is on the parse 3 
; 808 462 4 ' stack. The current mode for length tells the number of bytes : 
; 809 4635 4 ' of the value. Set pointer to data and size indicator. Then F 
; si? re¢) 2 ' check for a truncation error. : 
; aig 466 4 OLD_VALUE_PTR = LIST Sirwe® (POINTER); 3 
; 81 467 & VAL_SI1Z =" .PAT$GB_MOD_PTR™ CMODE « we : ; 
; 814 468 4 IF TLIST_ELEM_EXPT(.POINTER) LSS $ 
; 815 469 4 THEN : 
3 318 qn59 2 BEGIN F 
5 pf rh . - (LIST_ELEM_EXP1(.POINTER))<O, .VAL_SI1Z*8, 1> NEQ .LIST_ELEM_EXP1(. POINTER) : 
; £18 47 : SIGNAL (PAT$S_NUMTRUNC) ; : 
; 0 474 § END 3 
: 1 475 4 ELSE 3 
: 6 are $ dl gL IST_ELER_EXPY( POINTER) ) <0, -VAL_SIZ*8, 0> NEQ .LIST_ELEM_EXP1(.POINTER) 3 
: 824 478 4 SIGNAL (PAT$S_NUMTRUNC) ; 3 
3 $2 rh 4 END; : 
: 897 481 PATSFILL_BUF (PATSGL_TEMP_ BUF, .OLD_VALUE_PTR, .VAL_SIZ); . | 3 
: 8 48 HOLE_SIZ~= .HOLE_SIZ + VAL_§12; ! Add current size to cumulative : 
: 829 48 ' Output old contents F 
3; 830 484 PATSOUT_MEM_LOC(.NEXT LOC, OLD_TAB_STG, PATSGL_OLD_ASD, NO_CASE_TABLE); , : 
; «831 485 NEXT_LOC = TPATSGL_NERT_LOC; ! Point to next location 3 


k 5 
PATEXA 16-Sep-1984 00:30:29 VAX-11 Bliss-32 V4.0-742 Page 25. 
v04=000 1e3ebr19ke 12:89:89 DISkSVMGMASTERSCPATCH. SRCIPATEXA.B3201°" (2). 
; 4 | : 
F4 ‘ 4 § 'e4¢ : 
: ¢ rt 3 : Check if this is the last old argument. : 
; 490 iF .LIST_ELEM_EXP2(.POINTER) EQL EXIT_TOKEN ; 
3 491 THEN ; 
; 838 49 EXITLOOP; ; 
3 9 49 END; ; 
: Bch 195 5 144 ; 
; § 138 Resolve any forward references in symbolic instruction operands. ; 
> B44 496 2 PATSRESOLVE_INS(PATSGL_TEMP_BUF); ; 
is eo, ; 
3 847 501 i Now get the actual values in the locations and ; 
3 re 208 check that they equal the specified values. : 
; 850 504 2 BYTE_COUNT = 0; ; 
: 851 305 3 WHILE (.BYTE_COUNT LSS .HOLE_SIZ) : 
: 838 507 BEGIN ; 
; Ee 308 4 IF ((BUF_SIZE = .HOLE_SIZ - .BYTE_COUNT) GTR TTY_OUT_WIDTH) : 
: 856 510 BUF_SIZE = TTY_OUT WIDTH; ; 
; 857 511 PATSGET_VALOE(.LIST_ELEM_EXP1(.PATSGL_HEAD_LST)+.BYTE_COUNT, 3 
; 858 31g -BOF_SIZE, OLD CONTENTS); : 
; 859 51 IF CHSNEQ(.BUF_SIZE, TPATSGL_TEMP_BUFCOSC$A_POINTER]+.BYTE_COUNT, ; 
; re a3 non -BUF_SIZE, OLD_CONTENTS) 3 
; 86¢ 316 SIGNAL (PATS_DIFVAL*MSG$K_WARN) ; 
; 51 BYTE_COUNT = .BYTE_COUNT + .BUF_SIZE; 
: 518 END; 
; et $31 ; Release the storage holding the old instructions. 
: 869 5 : PATSFREERELEASE ( .PATSGL_TEMP BUF LDSC$A_POINTER], (.PATSGL_TEMP_BUF CDSC$W_LENGTH]+3)/4); 
; 870 524 PATOL _TERP _BUF DSC SNL NGTH] = 0; 
: 871 3 5 ¢ PATSGL_TEMP_BUFCDSCSA-POINTER) = 6; 
; 873 : $ If this was a VERIFY command, we are all done. Return for next command. | 
; ers 3 ; If; PATSGL_CONTEXTCVERIFY 8173 
: 7 3 1 RETURN; | 
: 879 5 § lee 
; 880 534 ! Check if old instruction should be moved to patch area, i.e., is this an 
3 rt 535 ' INSERT command. Remember the number of bytes of old instructions moved 
3 ag 5 ! in case there are forward referenced symbols to relocate in the new 
: Bae 33 instructions. | 
; 885 339 if .PATSGL_CONTEXT CINSERT_BIT) | 
; Hy 540 THEN 
3 8 541 BEGIN 
; 888 542 PATS$FILL_BUF (PATSGL_TEMP_BUF, INSTRUC_BUFC1], .INSTRUC_BUFCOJ); 


5 | 
PATEXA 1b-se -1984 00:30:29 VAX-11 Bliss-32 V4.0-742 Page 26) 
v04=000 1e-8op- 1882 99:89:93 PN KSUmeHASTERSCPAT ON SACIPATEXA.B32¢4°° (26, 
; 4 et? OLB _INS Siz = .PATSGL_TEMP_BUFCOSC$W_LENGTHI; ! Remember # of bytes of old instructions mo. 
; 891 45 ELSE 
; 3 rk iEGIN 
; 89 4 OLD_INS_SIZ = 0; ! No old instructions moved 
3 Boe 208 WERT LOE = ,UNMAPPED_LOC; ! Set next deposit location for REPLACE comm) 
i 896 386 | 
: 89 33) g its | 
; 43 2 ¢ } Now fit the replacement value/instruction into the location. | 
; 900 327 IF (NEW_INS_PTR = .LIST_ELEM_FLINK(.POINTER)) EQLA 0 ! If no replacement argument 
; 901 555 THEN ! then report error 
; 908 556 SIGNAL (PATS_INVCMD); | 
: 903 357 PATSGL_SYMTBPTR = .PATSGL_NEWLABLS; ! Use the new contents label table 
; 905 559 '+¢ | 
; 906 560 ! Now build a buffer containing the new values to be deposited. The deposits 
: sith 22) are not done directly to memory in case part of the command is invalid. 
3 +44 508 UHILE (POINTER = .LIST_ELEM_FLINK(.POINTER)) NEQA 0 ! Point to next argument 
; (911 565 BEGIN 
; at 238 IF .PAT$GB_MOD_PTR CMODE_INSTRUCJ ! Test for instruction or data replacement 
; 9 56 THEN 
> 914 568 4 BEGIN 
: #915 569 4 '+4 
; 218 359 2 } Now encode the replacement instruction. 
: 918 276 4 FILL_CHAR = NOP_INSTR; ' Set the fill character 
; 919 35735 4 IF NOT PATSINS_ENCODE(.LIST_ELEM_EXP1(.POINTER), INSTRUC _BUF, 
; 920 574 4 .NEXT_LOC, ~PATSGL_NEW_ASD, PAT$GL_TEMP_BUF) | 
3 3s) 575 4 THEN 
; F § 278 4 SIGNAL(PATS_NOENCODE, 1, .LIST_ELEM_EXP1(.POINTER)); : | 
s te 577 4 PATSFILL_BUF (PAT$GL_TEMP_BUF, INSTRUC_BUFC1J, . INSTRUC_BUFCOJ); ! Insert instruction into te 
: 924 578 4 NEXT_LOC™= .NEXT_LOT + .INSTRUC_BUFCOT; 
: 925 579 4 ND 
; ase 580 ELSE 
: 927 581 '++ 
; 928 286 ' The replacement is for a value. Therefore it is on the parse 
; 369 58 ' stack. Check for a truncation error. Then set the fill 
; 834 280 ! character and write the value to the temporary buffer. 
3 836 286 4 BEGIN 
; 9 587 4 IF .LIST_ELEM_EXP1(. POINTER) LSS 0 
; 934 588 4 THEN 
; 935 589 5 BEGIN 
: 339 4 5 o - (LIST_ELEM_EXP1(.POINTER))<0, .VAL_SIZ*8, 1> NEQ .LIST_ELEM_EXP1(.POINTER) 
HY eH 235 é SIGNAL (PAT$_NUMTRUNC) ; 
; 939 593 5 END 
3; 940 594 4 ELSE 
: at 282 2 HF 9g, LEST ELEN FUP 1 POINTER) <8, -VAL_SIZ*8, 0> NEQ .LIST_ELEM_EXP1(. POINTER) 
3; 94 299 4 SIGNAL (PAT$S_NUMTRUNC) ; 
3; 944 598 4 FILL_CHAR = ZERO BYTE; ' Set the fill character 
> 945 599 4 PATSFILL_BUF (PATSGL_TEMP_BUF, LIST_ELEM_EXP1(.POINTER), .VAL_SIZ); 
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94 600 NEXT_LOC = .NEXT_LOC + .VAL_SIZ; 
3 $03 END ae 
309 £08 1o4 ‘ 
ge9 one Resolve the forward references in symbolic instruction operands. 
93¢ 606 PATSRESOLVE_INS(PATSGL_TEMP_BUF); 
95 60 
954 608 '+4 
32? rst Now check the replacement size against old instruction size. 
Bet at I ate sista etthctatiaien coctanittes LSS .HOLE_S1IZ ! Make temporary buffer at least as large as | 
959 é18 BEGIN 
960 614 LOCAL 
303 a2 TEMP_PTR; ! Temporary pointer to temporary buffer | 
363 617 TEMP_PTR = PATSFREEZ((.HOLE_SIZ + A_LONGWORD - 1)/A_LONGWORD); 
964 618 CHSCOPY(.PATSGL_TEMP_BUFCOSC$W_LENGTH], .PATSGL_TEMP_BUFCDSC$A_POINTER), 
965 619 FILL CAAR, 7HOLE SIZ,~.TEMP_PTR); 
966 620 PATSFREERELEASE( .PATSGL_ TEMP GurCOSesA POINTER] (.PATSGL_TEMP_BUFCDSC$W_LENGTH] +3)/4); 
967 621 PATS$GL_TEMP_BUFLOSCSA_POINTER] = CHSPTR(.TEMP_PTR, 0); 
968 6 ; PATSGL_TEMP_BUFCDSCSW_LENGTH] = .HOLE_SIZ; 
969 6 END; 
970 624 
971 $$? !+ 
626 
627 
628 
a4 
630 
631 
O36 
63 
634 
635 
636 
637 
638 
639 
0 
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97 Now write the temporary buffer over the mapped input image. 
if .PATSGL_TEMP_BUFCDSC$W_LENGTH] EQL .HOLE_SIZ 
975 THEN 
976 BEGIN 
977 +4 
44 | } Replacement data fits. Write it to memory and output new contents. 
980 PATSWRITE_MEM(. UNMAPPED LOC, .PAT$SGL_TEMP_BUF[USCSA_POINTER], .PATSGL_TEMP_BUFCDSC$W_LENGTH)); 
981 NEXT_LOC = .UNMAPPED LOT + .HOLE_SIZ; 
982 PATSGL_NEXT_LOC = .UNMAPPED_LOC; 
38) WHILE [PATSGL_NEXT_LOC LSSA™.NEXT_LOC ! Qutput new contents 
+ o7 PATSOUT_MEM_LOC(.PATSGL_NEXT_LOC, NEW_TAB_STG, PATSGL_NEW_ASD, CASE_TABLE); 
987 641 ELSE 
988 76 BEGIN 
989 64 l+¢ 
990 644 ! The replacement instruction is too large. It 
44 20? must be relocated to the patch area. 
935 647 if .PATSGB_MOD_PTR CMODE_INSTRUCJ 
995 res ne RELOCAT_INS(.UNMAPPED_LOC, .HOLE_SIZ, .OLD_INS_SIZ, .NEW_INS_PTR) 
399 651 SIGNAL (PAT$S_REPLACEERR) ; ! Internal error if patch area needed for da 
998 636 END; 
999 65 'e+ | 
1900 tr : Now add all the new labels to the user-defined symbol table. | 
1002 656 2 PATSADD_LABELS(PATS$GL_OLDLABLS); 
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V DISKSVMSMASTER: CPATCH. SRCJPATEXA.B32; 1 
; 1003 657 2 PATSADD_LABELS(PATSGL_NEWLABLS); 
: 1004 658 PATSADD “LABELS (PATSGL-RLCLABLS) ; 
: 1005 659 2 RETURN; 
: 1006 660 17 END; ! End of PATSREPLACE_CMD 
OFFC 00000 SENTRY Siti CMD, Save R2,R3,R4,R5,R6,R7,R8,-; 3315) 
5E FF3¢ cE 9 90002 MOVAB Yecsb SP : 
000000006 FF DO 0000 MOVL —PATSGL PAEAD _LST, POINTER : $415, 
4 13 0000 BEQL + 3416 
67 05 0001 TSTL (POINTER) : 
OD 12 0001 BNEG 2$ : 
Q06D80DA BF OC#DD «(00014 1$ PUSHL #71 + 3418 
000000006 00 01 cB OO01A CALLS #1, LI : 
000000006 EF 01 8 90021 2$ BISB2 #1, PATSGL_CONTEXT+1 + 3423 
5B 04 AZ DO 00028 MOVL  4(POINTER)> UNMAPPED_LOC + 3424 
59 04 AZ? 00 900¢¢ MOVL 4(P QINTER). NEXT_LOC™ + 3425) 
56 D4 00030 CLRL HOLE SI + 3426 
000000006 EF 000000006 EF DO 00032 MOVL PAT ATSCL OLDLABLS « PATSGL_SYMTBPTR + 3427 
57 67 DO 00030 3$ MOVL (POINTER) NTER : 3435 
52 04 A? 9E 00040 MOVAB 4(POINTERS, PRe + 3451 
50 000000006 EF DO 00044 MOVL PATSGB _MOD_PTR, RO + 3441 
38 AO £9 00048 BLBC =—«_-3(R * Pe : 
000000006 EF SF 0004F PUSHAB PATSGL . TEMP_BUF + 3451) 
000000006 EF 9F 00055 PUSHAB PAT$GL-OLD_ASD : 
59 DD 00058 PUSHL NEXT_L + 3452 
BO AD 9F 0005D PUSHAB INSTRUC. BUF : 3451 
62 DD 00060 PUSHL F | 
000000006 _ EF 05 FB 00062 CALLS #5, PATSINS_ENCODE ; | 
11 50 €8 90069 BLBS RO. 4$ : 
62 DD 0006C PUSHL  (R2) + 3454 
01 DD 0006 PUSHL ; 
006D810A 8F DD 0007 PUSHL #7176458 ; 
000000006 00 03 FB 00076 CALLS Hi LIBSSIGNA ; 
53 B1 AD 9E 0007D 4$: MOVAB INSTRUC _B BUF + mo OLD_VALUE_PTR ; 3455 
54 BO AD 9A 00081 MOVZBL INSTRUC_BUF, VAL_ STZ : 3456 
2D 11 00085 BRB > 3441 
53 52 DO 00087 5$: MOVL 2, OLD gVAtue PTR : 3466 
54 01 AO 9A OO08A MOVZBL 1cRo) $12 : 3467 
50 54 0 ¢: 008 ASHL MM, “SIZ, RO ; 347) 
62 D5 0009 TSTL if a5) ; 3468 | 
07 18 00094 BGEG ; 
51 62 50 00 EE 00096 EXTV oS. RO, (R2), R : 3471 
05 11 00098 BRB 7$ F 
51 62 50 90 EF 0009D 6$: EXTZV #0, RO, (R2), R1 : 3476 
62 1 D1 OO0A2 7S: CMPL =e 1. (RO) ; | 
OD 13 OOOA EQL ; 
006D8023 BF DD OOOA PUSHL #7176227 : 3478 | 
000000006 00 01 FB QOAD CALLS #1, L 1885 1GNAL : 
18 2 0B4 8$: PUSHR #*M<R : 
000000006 EF 9F 00086 PUSHAB PATSGL_TEMP_BUF ; 
00000000v ef 3 FB 008 CALLS #3, PATSFILC BUF ; 
6 4 c0 000C ADDL VAL_ $12, HOLE_SIZ : 3482 


VAX-11 Bliss-32 V4.0-742 Page 29) PAI 
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| 
7E D4 090¢6 CLRL =s-_ = (SP) ; 3486, 
900000006 EF OF ¢ PUSHAB PATS$GL_OLD_ASD : | 
0000000" EF 9F BRCE PUSHAB OLD_TAB_STG : | 
9 DD 00004 PUSHL NEXT LOT ; 
00000000v ef 4 FB 0006 CALLS #4, PATSOUT_MEM_LOC ; 
9 000000096 EF DO 09000 MOVL PATSGL_NEXT=LOC7 NEXT_LOC : 3485 | 
OA 08 AZ D1 OO0E4 CMPL B(POINTER) #10 + 3490 
03 13 OO00E8 BEQL $ : 
FF50 31 OOEA BRW 3$ : 
000000006 FF F QOOOED 9$ PUSHAB PATS$GL_TEMP_BUF + 3498 
00000000G_ EF 1 FB OOOF3 CALLS #1, PATSRESOLVE_INS $ 
22 D4 OOFA CLRL BYTE_COUNT + 3504 
56 5 D1 OOOFC 108: CMPL § BYTE~COUNT, HOLE_SIZ > 3505 
44 \8 OOOFF BGEQ =i ; 
58 56 55 C3 00101 SUBL3 BYTE_COUNT, HOLE_SIZ, BUF_SIZE : 3508 
00000084 aF 58 D1 00105 CMPL BUF_SIZE, #132 : 
04 15 0010C BLEQ : 
58 BF OA 00105 MOVZBL #132, BUF_SIZE : 3510 
4100 8F BB 00112 11$:  PUSHR #*M<RB8,SPS > 3512 
50 000000006 EF DO 00116 OVL _— PATSGL_HEAD_LST, RO > 3511 
04 BO04S5 9F 0011D PUSHAB @4(RO)CBYTE_COUNT] 3 
000000006 EF 03 FB d0121 CALLS #3, PATSGET-VALUE ; 
6E 00000000GFF45 58 29 00128 CMPC3 BUF_SIZE, @PATSGL_TEMP_BUF+4(BYTE_COUNTJ, - ; 3513 
OLD-CONTENTS : 
Od 13 00131 BEQL 12$ : 
00608290 8F DD 00133 PUSHL 47176848 : 3516 
000000006 00 01 FB 00139 CALLS #1, LIB$SIGNAL : 
55 58 CO 00140 12$: ADDL2 BUF_SIZE, BYTE_COUNT : 3517 
B7 11 00143 BRR : 3505 | 
50 000000006 EF 3C 00145 138:  MOVZWL PATSGL_TEMP_BUF, RO : 3523 
50 03 CO 0014¢ ADDL¢ #3, RO ; 
7E 50 04 (C7 O014F DIVL 4, RO, -(SP) : 
000000006 EF DD 00153 PUSHL PATSGL.TEMP_BUF+ : 
00C00000G_ EF 02 FB 00159 CALLS #2, PATSFREERELEASE F 
000000006 EF B84 00160 CLRW PATSGL_TEMP_BU > 3524 
000000006 EF D4 00166 CLRL  PATSGL~ TEMP" BUF +4 ; 3395 
01 000000006 _ EF 05 FI 0016¢ BBC #5, PATSGL_CONTEXT+2, 14$ : 3529 
000000006 EF 95 00175 148: TSTB = PATSGL_CONTEXT+2 ; 3539) 
1D 18 00178 Q  =:'15$ ; 
7E BO AD 9A 0017D MOVZBL INSTRUC_BUF, -(SP) : 3542 
B1 AD 9F 00181 PUSHAB INSTRUC ~BUF+ ; 
000000006 ai 9F 00184 PUSHAB PATS$GL_TEMP_BUF ; 
00000000v ef 3 FB ab CALLS #3, PATSFILC BuF 3 
A 000000006 EF 3C 00191 MOVZ2WL PATSGL_TEMP_BUF, OLD_INS_SIZ > 3543) 
5 11 00198 BRB 16$ ; 3359 
A 04 0019A 158: CLRL OLD_INS_SIZ : 3547 
59 58 D0 0019¢ MOVL | UNMAPPEB_LOC, NEXT_LOC ; 348 
58 6 b9 O19F 16$:  MOVL (POINTERY, NEW_INS"PTR : 3554 
OD 1 142 BNEQ 17$ : 
O006D80DA 8F DD O01A4 PUSHL #7176410 : 3556 | 
000000006 00 01 FB OO1AA CALLS #1, LIBSSIGNAL ; 
000000006 gf 000000006 EF DO 001B1 17$:  MOVL # PATSGL_NEWLABLS, PATSGL_SYMTBPTR : 3557 | 
7 67 DO OO1BC 18$:  MOVL (POINTER), POINTER ; 3563 | 
03 1 1BF BNEQ 19$ F 
0099 31 001C1 BRW 26$ ; 
52 04 A? 9E 001C4 198: VAB 4(POINTER), R2 ; 3573 | 
| 
| 
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50 000000006 EF DO 001C8 MOVL § PAT$GB_MOD_PTR, RO : 3566 
af 88 AO p9 ice BLBC = 3(RO) “398- : 
5 01 90 00103 MOVB #1, FILL CHAR : 357 
000000006 EF 9F 00106 PUSHAB PATSGL_TEMP_BUF : 357 
000000066 Ef OF 1D¢ PUSHAB PATS$GL-NEW_ASD : | 
9 DD OOTE PUSHL NEXT _LOC ; 3574 | 
BO AD 9F O01E4 PUSHAB INSTRUC_BUF : 3573 
6¢ DD OO1E7 USHL (Re) ; 
000000006 EF 0 FB 1£9 CALLS #5, PATSINS_ENCODE ; 
11 0 €8 OO1F LBS RO, 20$ ; 
62 DD OO1F PUSHL (Re) : 3576 
or DD OIF PUSHL #1 : 
006D810A 8F DD OOF PUSHL #717645 : 
000000006 00 03 FB OO1FD CALLS #3, LIBSSIGNAL ; 
7E BO AD 9A 00 04 20$:  MOVZBL INSTRUC_BUF, -(SP) : 3577 
Bi AD 9F 00208 PUSHAB INSTRUC~BUF+ : 
00000000G EF 9F 00208 PUSHAB PATS$GL_TEMP_BUF 3 
00000000vV_ EF 03 FB 38 11 ALLS #3, PATSFILC_BUF : 
50 BO AD 9A 00218 MOVZBL INSTRUC _BUF,~RO : 3578 
59 50 CO 0021C DL2 RO, NEXT_L ; 
98 11 O0eiF Z18: BRB $ : 3566 
50 54 03 78 00221 22$: ASHL #3, VAL_SIZ, RO : 3590 
62 D5 00285 TSTL (R28) : 3587 
07 18 00227 BGEQ 238 : 
51 62 50 00 EE 00229 EXTV #0, RO, (R2), R1 + 3590 
05 11 O022€ BRB 2 ; 
51 62 50 00 EF 00230 238: EXTZV #0, RO, (R2), R1 + 3595 
62 51 D1 00235 24$: CMPL Ri, (RO) : 
0d 13 00 38 BEQL ; 
006D8023 BF DD 0023A PUSHL #7176227 : 3597. 
000000006 00 01 FB 00240 CALLS #1, LIBSSIGNAL ; 
53 94 00247 25$:  CLRB FILL CHAR : 3598 
14 BB 00249 PUSHR #*M<R2, : 3599 
000000006 EF 9F 00248 PUSHAB PATSGL.TEMP_BUF ; 
00000000V_ EF 03 FB 00251 CALLS #3, PATSFILC BUF F 
59 54 CO 00258 ADDL2 VAL_SIZ, NEXT_LOC : 3600 
t2 11 00298 BRB 1$ > 3563 
000000006 EF 9F 0025D 26$: | PUSHAB PATS$GL_TEMP_BUF : 3606 
000000006 EF 01 FB 00263 CALLS #1, PATSRESOLVE_INS : 
56 000000006 EF 10 09 ED 99 $A CMPLV #0, #16, PATSGL-TEMP_BUF, HOLE_SIZ : 3611 
50 03 Ab 9E 00275 OVAB (R6), RO : 3617 
7E 50 04 C7? 00279 DIVL , RO, - : 
000000006 EF gi FB 027D CALLS #1. PATSFREEZ ; 
7 0 OD 0284 MOVL TEMP_PTR : 
56 53 000000006 FF 000000006 EF 2C 00287 MOVCS PATSGL_TEMP_BUF, @PATSGL_TEMP_BUF+4, - : 3619 
67 00294 Pity CRAR, AOLE_SIZ, (TEMP_PTR) : 
50 000000006 EF 3¢ 00295 MOVZWL PATSGL_TEMP_BUF, RO + 3620 
50 3 C6 029¢ ADDL g _R ; 
7E 50 4 C7 0029F DIVL3 #4 RO, -(SP) ; 
000000006 EF DD 002A3 PUSHL PAISGL. TEMP_BUF +4 ; 
000000006 EF g FB 0029 CALLS #2, PATSFREERELEASE : 
000000006 EF DO 00 59 MOV TEMP_PTR, PATSGL_TEMP_BUF +4 > 3621 
000000006 _ ‘EF 6 BO 00cB MOV HOLE : 2; PATSGL~TEMP~BUF : 36 ‘ 
56 000000006 _ EF 10 09 FD 0 BE 27$ CMPZV #0, B16, PATSGL_TEMP_BUF, HOLE_SIZ : 36 | 
7E 000000006 EF 3C 002C9 MOVZWL PATSGL_TEMP_BUF, -(SP) : 
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000000006 gf DD 00200 PUSHL PATS$GL_TEMP_BUF +4 : | : 
: DD D6 PUSHL | UNMAPPED Lot : : 
000000006 EF p FB 002D CALL 43, PATSORG : ; 
8 6 ci DF ADDL E SIZ, UNMABPED LOC, NEXT_LOC : 3635 ; 
000000006 a 5B 0 0 E3 MOVL UNHAPBED’L PATSGL_NEXT_LOC : 3636 ; 
9 000000006 EF 01 EA 28$ CMPL = PATSGL EREK TS “toc, NEXT. i + 3637. ; 
46 1€ OO02F1 BGEQU 31$ : ; 
01 pb 0 FS PUSHL #1 : 3639) ; 
000000006 EF 9F : F PUSHAB PATSGL NEW_ASD : ; 
00000000' EF 9F FB PUSHAB : ; 
000000006 EF DD 00301 PUSHL PATSGL NEXT_LOC : ; 
00000000V EF 4 FB 99 07 CALLS ckrsour” “FEM. Loc : ; 
DA 11 00 5 BRB *8 : ; 
50 000000096 EF DO 00310 298: MOVL § PAT$GB_MOD_PTR, RO + 3647 ; 
11 03 AO E9 00317 BLBC 3(RO),~30$~ ; ; 
58 DD 00318 PUSHL NEW_INS_PTR + 3649 : 
0440 8F 8B 0310 PUSHR #*MZR6,R10 : F 
5B DD 00321 PUSHL UNMAPP PED LOC ; ; 
00000000V EF 04 FB 00345 CALLS RELOTAT_INS : : 
OD 11 0032A BRB ag ; ; 
006D815A 8F DD O05¢c 30$: PUSHL #7176538 + 3651 : 
000000006 0 01 FB 00332 CALLS #1, LIBS$SIGNAL ; ; 
000000006 EF 9F 00339 31$: PUSHAB PATS$GL_OLDLABLS : 3656 ; 
000000006 EF 01 FB 0033F CALLS #1, PATSADD_ LABELS ; : 
00000000G EF 9F 00346 PUSHAB PATSéL NEWLAB 3 3657 $ 
000000006 EF 01 FB 0034C¢ CALLS PATSADD LABELS ; ; 
000000006 EF 9F 00353 PUSHAB PATSGL CLABLS : 3658 : 
000000006 EF 01 FB 00359 CALLS ee TsAbD _LABELS ; ; 
04 00360 RET : 3660 ; 
; Routine Size: 865 bytes, Routine Base: _PATSCODE + 030A : 
; 
| . 
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H 1908 $6) } ROUTINE RELOCAT_INS (OLD_LOC, HOLE_SIZE, OLD_INS_SIZ, ASC_INS_PTR) : NOVALUE = 
; 1010 665 1 !++ 

; 1011 664 1 ! FUNCTIONAL DESCRIPTION: 

; 1olg 665 1! 

; 101 006 1! This routine relocates an instruction from an old address to the patch 
: 1014 667 1! area. It then moves in any new instructions, specified as an argument 
3; 1015 668 1! List for a patch command. A branch or jump instruction is then put 
; 1016 669 1! into the old address. If there is not enough room left by the 

; 1017 670 1! removal of the instruction, then more instructions are moved to the 
; 1018 3671 1! atch area until the branch instruction iwll fit. Lastly, a return 
; 1019 $076 1! ranch instruction is placed in the patch area to return execution 
3 Ist $047 : to the next sequential instruction past the old address. 

: 1092 3675 1! Any new instructions to be inserted are in a command argument 

: 102 3676 1! List, created by the parser. Each argument entry is made up of 

; 1024 3677 1! three longwords. The first is a forward Link to the next entry. 

; 1025 3678 1! The secon bangers contains the address of a counted byte stream 

: 1026 3679 1! that is to be translated into a binary instruction which is 

; 156 se80 : to be inserted into the patch area. The third longword is unused. 
3 9 one 1 ! CALLING SEQUENCE: 

; 1030 683 1! 

; 1031 3684 1! RELOCATE_CMD (OLD_LOCATION, NEW_INSTRUCTION_PTR) 

: 1032 3685 1! 

; 1033 3686 1 ! INPUTS: 

: 1034 3687 1! 

; 1035 3688 1! OLD_LOC = Unmapped address of instruction to be moved 

; 1036 3689 1! HOLE SIZE = Number of free bytes at OLD_LOC | J 

; 1037 3690 1! OLD_INS_SIZ = Number of ayes of old instruction preceding new instruction 
3 ee $3) ! ASC_INS_PTR = Pointer to first new instruction on command argument List 
; 1040 369 1 ! IMPLICIT INPUTS: 

3; 1061 3694 1! . ; . 

5 Hk $032 ! PATSGL_TEMP_BUF = String descriptor for counted binary instructions 
; 1044 3697 1! The head of the Linked List, the current mode, and 

3: 1045 3698 1! the current patch area descriptor. 

: 1046 3699 1! 

3: 1047 3700 1 ! OUTPUTS: 

3; 1048 3701 1! 

: 1049 $508 1! none 

: 1050 3703 1! 

: 1051 tobe 1 ! IMPLICIT OUTPUTS: 

; 1936 705 1! 

: 105 706 1! NONE 

: 1054 707 1! 

; 1055 708 1 ! ROUTINE VALUE: 

3 1938 709 1! 

3; 105 710 1! novalue 

; 1058 ‘a; oe # 

3; 1059 ar 1 ! SIDE EFFECTS: 

: 1060 715 1! . 

: 1061 16 7 ? If the default patch area is to be used and it does not currently 

: 1008 3 (a exist when PATSEXP_AREA is called PATSBUILD_ISE is invoked which 

; 106 716 1! gives the address of the instructions to be moved will propagate 

3; 1064 Wr 1 he image section attributes of the old image section to the newly 
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SS 


LOCAL 
SUCC OLD_INS, 
DECOBED_INS, 


NXT_ASC_INS, 
NEXT_PC 


XT_PC? 
NEW_INS PTR : REF VECTORC,BYTE), 
BR_BISPCACEMENT : SIGNED LONG 
BR-INSTRUC : VECTORCUMP_INS_SiZ+1,BYTE), 


3 


Pointer to ascii instruction 

Pointer to next ascii instruction in argum 
PC of next instruction to decode 

Pointer to relocated instruction stream 
Displacement for branch instruction 
Encoded counted string branch instruction 


o 
o 
uw 


3323 


NEW LOC, Address in patch area for relocated instru 
NEXT_LOC, Address of next instruction of inline code 
cur_COC Address of current instruction to be moved 


LOCRL BUF : VECTORCMAX_INST_LEN, BYTE], 


Local buffer for binary instruction stream 
INSTROC_BUF: VECTOR CMAX_INST_LEN, BYTE); 


Local buffer for ascic instructions 


lee 
: Enable instruction substitution. 


PATSGL_CONTEXTCINST_SUBST] = TRUE; 
PATSGL~SYMTBPTR = .PATSGL_RLCLABLS; 


ee 
! Check that there is enough room in the patch area for the instructions | 

! encoded in the cenperery buffer, PATSGL_TEMP_BUF. This is the minimum size 
' that may be required. nstruction substitutton may enlarge this size. This 
! will also insure that a patch area address is defined. 


IF (-PATSGL_PATAREALDSCSW_LENGTH] LSS .PATSGL_TEMP_BUFCDSC$W_LENGTH]) 


BEGIN 
IF (.PATSGL_PATAREACDSCSA_POINTER] EQLA .PATSGL_IHPPTRCIHPSL_RW_PATADR)) 


867 rg } created default patch area image section descriptor. 
06 720 ' The patch area now contains the moved ineyruction and the new ones 
068 721 ' plus a branch instruction back to the inline code. The old 
069 7 ¢ ' instruction location contains a branch to the patch area. 
070 7 : If a failure in a write or contents verification occurs, 
071 724 : the routine returns immediately. 
ore 725 ' 
07 7 § l<< 
074 7 
075 728 BEGIN 
o78 729 
07 730 LITERAL 
078 731 MAX_BYTE_DISP = 127 ! Maximum displacement for BRB 
079 I3¢ MIN_BYTE_DISP = -126 ! Minimum displacement for BRB 
080 7 MAX_WORD_DISP = 36767 ! Maximum displacement for BRW 
081 734 MIN-WORD-DISP = -32768, i Minimum displacement for BRW 
oes 735 BRB_OPCOBE = %x'11', ! Opcode for BRB 
08 738 RW_OPCODE = %x'31', ! Opcode for BRW 
084 737 JMP_OPCODE = %x'17', ' Opcode for JMP 
085 738 RB_INS_SIZ = ¢- ! Size of BRB instruction 
086 739 BRW_INS_SIZ = 3, ! Size of BRW instruction 
087 740 JMP_INS SIZ = 6, ! Size of JMP instruction 
088 741 PC DEFERRED = 2X'EF', ! PC deferred instruction mode 
089 ee NOP_INSTR = 1, ! Fill character for instruction 
090 ot MAX_INST_LEN = 80; ! Maximum number of binary bytes in an instr 
745 
746 
747 
748 
749 
750 
433 
738 
754 
755 
756 
757 
758 
759 
760 


Number of bytes of successive old instruct 
| 


3; 3 
. 
; 
3 3 
$1 
6 1 
3) 
3 7 
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3; 7 
a | 
3; 1 
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e 1 
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PATEXA 18-58 =1984 00:30:29 VAX-11 Bliss-32 V4.0-742 Page 34) 
v04-000 ae 99:39:93 DISKSVMSMASTER: LPATCH. SRCIPATEXA.B32:1> Ait 


3 11 3 775 3 THEN 

711 7g 4 BEGIN 
> 1126 777? & PATSEXP_AREA((.PATSGL re. pur peacey LENGTH] + A PAGE = 1)/A_PAGE, .OLD_LOC); 

; i 5 18 ; IF (.PATSGL_PATAREA DSCSW_CENGTH) LSS .PATSGL_TEMP_BUFCDSCSW-LENGTH) | 
3 11 ; 780 4 SIGNAL (PATS_INSUFPAT, 3, .PATSGL_TEMP_BUFCDSCS$W pewernd, 
: 1128 781 4 -PATSGL_PATAREALDSC$A_POINTERJ, .PATSGL_PATAREALDSCS$W_LENGTH]) ; 
; 1129 7 ¢ 4 END 

: 1130 7 ELSE 
; 1151 784 SIGNAL(PATS_INSUFPAT, 3, .PATSGL_TEMP_BUFCDSC$W beeen, 
11 : 785 -PATSGL_PATAREACDSC$A_POINTER], .PATSGL_PATAREALDSCS$W_LENGTH); 
3s 13 786 END; 
3 1} 787 
; 1135 788 '++ 
3 1 § 434 Set pointer to relocation address. 

; 1 : a} NEW_LOC = CHSPTR(.PATSGL_PATAREACDSCSA_POINTER], 0); 

: 1140 79 1++ 

3 1141 794 ! Now compute the branch displacement size. Then build the binary code 

3 1308 3? ! based on the displacement. 

3 11446 797 BR_DISPLACEMENT = .NEW LOC = .OLD_LOC = BRB_INS SIZ; 

; 1145 798 IF” (.BR_DISPLACEMENT LEQ MAX_BYTE_DISP) AND (.BR_DISPLACEMENT GEQ MIN_BYTE_DISP) 

3 1146 799 THEN 

3; 1147 800 BEGIN 

3; 1148 801 eros te TRUCE SS = BRB_INS_ SIZ; 

3 1149 80 BR_INSTRUCL1) = BRB_OPCODE; 

; 1150 380 CHSMOVE(.BR_INSTRUCCOJ, CHSPTR(BR_DISPLACEMENT,O), CHS$PTR(BR_INSTRUCC2],0)); 

: 1151 3804 END 

; 1328 $e02 ¢ ELSE 

3 139 806 IF (.BR DISPLACEMENT LEQ MAX_WORD_DISP) AND (.BR_DISPLACEMENT GEQ MIN_WORD_DISP) 

: 1154 3807 THEN 

; 1155 es BEGIN 

; 1156 809 BR _INSTRUCEO) = BRW_INS_ SIZ; 

3 1157 3810 BR_INSTRUCC1) = BRW-OPCODE; 

; 1158 811 BR_DISPLACEMENT = 26h DISPLACEMENT - (BRW_INS_ SIZ = BRB_INS SIZ); 

3; 1159 og CHSMOVE(.BR_INSTRUCCOJ, CHSPTR(BR_DISPLACEMENT,O), CHSPTR(BR_INSTRUCC2],0)); 

> 1160 81 END 

: 1161 814 ELSE 

; 1366 815 GIN 

3; 116 816 BR_INSTRUCCO) = JMP_INS SIZ; 

3; 1164 817 BR-INSTRUCC1) = JMP-OPCODE; 

118 319 BR-DISPLACERENT © (TR DISPLACEMENT - (JMP_INS SIZ - BRB. INS_S1Z) | 
; = - ie : 

3 116? ; CHSROVEC BR_INSTRUCLOT, CHSPTR(BR_DISPLA‘*MENT,0O), CHSPTR(BR_INSTRUCC3I,0)); | 
; 1190 B58 5 14s 

3: 1171 824 ! Now see if the branch instruction will fit in the hole left at the old 

: 1176 825 ! Location. If not, then move more instructions to the patch area until it | 
; Ee, 8 $ will fit. 

3 1175 3 8 NEXT_LOC = .OLD_LOC + .HOLE SIZE; ! Compute address of next inline instruction 
; ii 829 2 NEXT_PC = .OLD_COC + .HOLE SIZE; ' Compute address of next inline instruction 
3 17 830 SUCC~OLD_INS =~.PATSGL_TEMP_BUFLDSC$W_LENGTH]; ! Remember where extra old instructions awe | 
3 1178 831 WHILE .BR_INSTRUCCO) GTR .HOLE_SIZE 
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NXT_KASC_INS = TASC” INS PTR; ' Get pointer to next new instruction argume | 
WHITE -CUR_LOC LSSA (.PATSGL_TEMP_BUF CDSCSA_POINTER] + -PATSGL_TEMP BUF LDSCSW_LENGTH ) 


Seecrer= 


BEGIN 
PATSGL_BUF _SIZ = 0; 


u 6 | 
PATEXA 16-Sep-1984 00:30: VAX=11 Bliss=32_V4.0-742 Page 35) 
v04-000 12-80 8=1 Re 99:39:43 DISKSVMSMASTER = CPATCH, SRCIPATEXA.B32: 1° hid 
3; 1179 § DO | ; 
; 1180 BEGIN 5 
3; 1181 4 l+ H 
3 11 § 5 ' First decode the instruction at the next old location. Then $ 
7 11 $ ' re-encode it to get the binary stream. Then insert it into $ 
: 118¢ } the temporary buffer. ; 
; 1138 § PATSOUT_MEM_LOC(.NEXT_LOC, OLD_TAB_STG, PATSGL_OLD_ASD, NO_CASE_TABLE); F 
711 40 PATSGL_BuF _ = 0; F 
5 BY eh PATSCP_OUT_STR = CHSPTR(LOCAL_BUF(1)); 3 
; 1189 tg ; 
; 1190 7 i++ : 
3 1191 44 ! Because the instruction is actually in the code, the PC is the : 
3 1138 845 ' same as the address of the byte stream. PATSINS DECODE will update 3 
; 119 a8 ' the NEW_PC automatically. To determine the length of the instruction : 
3; 1194 84 ! binary stream just decoded (for updating the HOLE SIZE), NEXT_LOC must 3 
: 1195 848 ' be preserved. Therefore, the return value from the routine iS written $ 
3 1196 849 ! into NEW_PC mot NEXT_LOC. This will be the same value, unless the : 
: 3) 14 529 : routine Failed. ; 
; Bh 4 B26 ete = PATSINS_DECODE(.NEXT_LOC, 0, NEXT_PC, PATSGL_OLD_ASD, NO_CASE_TABLE)) EQL 0 : 
5 1201 854 SIGNAL (PAT$_NODECODE) ; $ 
3 7 o 855 LOCAL BUFCOJ] = .PATSGL BUF SIZ; : 
; 120 529 NEW_INS PTR = CHSPTRCINSTROC_ BUF, 0); F 
3 1204 85 IF ROT PATSINS ENCODE (LOCAL_BUF, INSTRUC_BUF ; 
3 1s02 3626 wee -OLD_COC + .PATSGL-TEMP_BUFCDSCSW_LENGTH], PATSGL_NEW_ASD, PATSGL_TEMP_BUF ) : 
: 1207 860 4 IF (.PAT$GB_SUBST_INCO] NEQ 0) 3 
3; 1208 861 THEN 3 
3 1209 86 NEW_INS_PTR = CHSPTR(PAT$GB_SUBST_IN, 0) : 
: 1210 86 ELSE ; 
3; 1211 864 SIGNAL(PATS_NOENCODE, 1, LOCAL_BUF); 3 
3 isi¢ 865 ‘++ : 
: isi? 508 There is a temporary restriction on relocation of CASE instructions : 
3 1499 868 IF (.NEW_INS_PTRC1) EQL OP_CASEB) OR ; 
: 1216 869 (.NEW_INS_PTRL1J EQL OP_CASEW) OR : 
; 1217 870 4 (.NEW_INS_PTRC1) EQL OP_CASEL) 3 
: 1218 871 HEN $ 
3; 1219 ors IGNAL(PATS_NORELOC + MSGSK SEVERE} : 
; 1220 87 PATSFILL_BUF(PATSGL-TEMP_BUF, NEW_INS PTRL1), .NEW_INS_PTR(OJ); ‘ 
> 1221 87% HOLE_SIZE = .HOLE SIZE +”.NEXT_PC7- .REXT_LOC; ; 
: 1 ¢ 1h NEXT-LOC = .NEXT_PC; : 
3 1 1 END; 3 
1224 87 ; 
3: 1225 578 '++ : 
3 1 $$ 87 ! Decode the instructions in the temporary buffer and re-encode them at the : 
3 : 5 880 patch area address. This will alter the addresses within the instructions. ; 
3: 1229 : 
3; 12350 | é 
3; 1231 : 
S| 3 
3 1 ; 
; : | : 


4 | 
PATEXA 1b-5e 4 VAX-11 Bliss-32 V4.0-742 6 
v04-000 14-Sep- 1984 93: 33: §3 DISK SVMSMAS TER’ CPATCH W. SRCIPATEXA.B32- 79 ‘8 
PATSCP_OUT STR : aCHSPTRILOCAL BuFC1)); 
IF (.COR_LOC GEQA .PATS$GL TEMP _BUF LDSC$A POINTER} + .OLD_INS_SIZ) AND 
8 vege UNe toc aay -PATSGL_TEMP_BUFLDSCSA_POINTER) + .SUCC_OLB_INS) 
BEGIN 


3 3 
- 1 
2 1 
3; 1 
3; 
3% 
+ 
3 7 
* 1 
3 7 
3 3 
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i Take the new instructions our of the argument List in 

i case there are — Labels which will be relocated. 

! This is ents done for new instructions being deposited. 

! The old instructions being relocated are decoded and re-encoded. 

DECODED_INS = .LIST ~ELEM. yt NXT_ASC_INS); 

NXT_ASC-INS = .LIST~ELEM~FLINK(.NXT_ASC_INSS; | 


4 
49 308 pATSEL “SYMTBPTR™ = BATSG ck RLCLABLS;~ ! Use reolcated label table 
ELSE 
ag 
i The instruction is an old instruction. Therefore use the 
908 ' old Label table and encode it from the decoded instruction. 
DECODED_INS = LOCAL .B ! Point to ascii instruction 
PATSGL _SYMTBPTR = ES aL -OLDLABLS; ' Assume this is an old instruction 


END; 
THEN LOC = PATSINS_DECODE(.CUR_LOC, 0, NEXT_PC, PATSGL_NEW_ASD, NO_CASE_TABLE)) EQL 0 


1GHAL (PATS NODECODE) ; 
LOCAL pur tos Ps ATSGL SI 
INS_PTR = cisPtT Ru nerROe 6 0); ! Set pointer to counted stream buffer 
"F “abt PATSINS ENCODE(. sTROC BU Tis” NSTRUC_B 
wae -NEW_COC + -PATS$GL RLOC _BUF DSCS$W_ cENGtHI. PATSGL_NEW_ASD, PATSGL_RLOC_BUF ) 


3 (.PAT$G8_SUBST_INCO] NEQ 0) 
NEW_INS_PTR = CHSPTR(PAT$GB_SUBST_IN, 0) 
| 


SAP UNoO 


NAW 


nD Or 
DOOOOOOOWOOOVOOOODOOOVOOVOOVOO 


ELSE 
ve SIGNAL (PAT$_NOENCODE, 1, LOCAL_BUF); 


a There is a temporary restriction on relocation of CASE instructions 


iF ‘- mete ine- PTRC1] EQL OP_CASEB) OR 
INS-PTRC1) EQL OP-CASEW) OR 
- ss, NEWS INS-PTRC1) EQL OP-CASEL) 


SIGNAL(PAT$_NORELOC + MSGSK SEVERE? : 
PATSFILL_BUF (PATSGL“RLOC_BUF, NEW_INS _PTRC1), .NEW_INS_PTRLO); 


PATSGL_SYMTBPTR = .PATSGL_RLCLABLS: ' Set relocated Labels as default (old alway 
PATSRESOLVE_INS(PATS$SGL_RLOC_BUF ); 


lee 

! Now a return branch instruction must be pieced in the relocation buffer. 

i Compute the branch displacement size. Then build t he binary code based on 
it the displacement. 


BR_DISPLACEMENT = .NEXT_LOC - (.PATSGL_PATAREACDSCSA POINTER] + 
-PATS$GL_RLOC_BOFCDSC$W_LENGTA)) - BRB_INS_SIZ; 
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PA Sep-1984 VAX-11 Bliss-32 V4.0-742 7 
v04 15-Sep-1984 99: 33: $3 DISKSVMSMASTER: CPATCH. CRCIPATEXA.B32- 79 oH 
3 ! 98 tenon? DISPLACEMENT LEQ MAX_BYTE_DISP) AND (.BR_DISPLACEMENT GEQ MIN_BYTE_DISP) 

. | 
: 4 94 

3 1 348 Pee UC _buF fo} = = BRB. INS_SIZ; 

3: 1 920 INSTRUC eur Boe PCODE;: 

; ! 984 CHSMOVET IN STRUC Bure J, CHSPTR(BR_DISPLACEMENT,O), CHSPTR(INSTRUC_BUF[2],0)); 

:1 9 ELSE 

; : $84 IF (BR. DISPLACEMENT LEQ MAX_WORD_DISP) AND (.BR_DISPLACEMENT GEQ MIN_WORD_DISP) 

. i lh pees «am 

Pd s 

3 1 956 INSTRU Burtt = 

31 959 BR_D ISP ate ACEREN RpISP CEMENT = (BRW_INS SIZ = BRB_INS_SIZ); 

3 : 44 CHSROVE TES FRUC “aithy PLACEMENT -DISPLATEMERT,0), CHSPTR( 1N STRU RUC_BUFC23,0)); 

:4 96 ELSE 

71 96 BEGIN 
3:1 964 INSTRUC_BUFCO) = JMP_INS SIZ; 

: 1 965 INSTRUC_BUFC1) = lg “OPCODE; 

71 966 Inst RUC BUF 2) = PC_BEFERRED; 
31 967 R_DISPCACEMENT = PC eR bisre ACEMENT = (JMP_INS SIZ = BRB_INS SIZ 

3 ! 4 we CHSROVEC. INSTRUC “BUFLO), CHSPTRIBR _DISPLATEMERT,0), ORSPTRCINGTR rUC_BUFC32,0)); | 
[1 970 PATSFILL_BUF (PAT$GL_RLOC_BUF, INSTRUC_BUFC1], .INSTRUC_BUFCO)); 

: ae ae 

: : 378 ; Now insert all new instructions into the patch area. | 
:1 3975 if (.PATSGL_RLOC_BUFCDSCS$W_LENGTH] GTR .PATSGL_PATAREACDSC$W_LENGTH]) 

: 1 976 é THEN | 
: 1 977 BEGIN 

3 { 978 : IF (-PATSGL_ PATAREALDSCSA_POINTER] EQLA .PATSGL_IHPPTRCIHPSL_RW_PATADR]) 

:1 980 4 BEGIN | 
: 1 981 4 PATSEXP AREA((.PATSGL_RLOC_BUFCDSCS$W_LENGTH] + A_PAGE - 1)/A_PAGE, .OLD_LOC); 
; : a ? (. PATSGL _PATAREALDSCS$W_ CENGTH) LSS .PATSGL_RLOC_BUFCDSCS$W_ “LENGTHI) | 
1 984 4&4 SIGNAL(PATS_INSUFPAT, 3, .PATS$GL_RLOC_BUFCDSC$W peer, | 
i] 985 4 ie .PATSGL_PATAREALDSC$A_POINTERJ, .PATSGL_PATAREALDSCS$wW_LENGTH)) ; | 
[4 987 ELSE | 
3 1335 988 SIGNAL (PAT$_INSUFPAT -PAT$SGL_RLOC_BUFCDSC$W ect 
: 989 -PATSGL_PATAREALDSC$A_ spointen ,~ PATSGL_PATAREALDSC$W_LENGTH)); 
:1 991 PATSURITE NREN(. PATSGL PATAR ACDSCSA_POINTER], .PAT$GL_RLOC UF CDSCSA POINTER], .PATSGL RLOC CARUFCDSCSU_ LENGTH | 
; 1339 99 PATS$GL_PATAREALDSC$W_CENGTH) = .PATSGL_PAT AREAL DSCSu CE CENGTA -PATSGL RLOC pur fosceu.ce CEN | 
: 1 9 ba PATSGL_PATAREALDSCSA_ POINTER? = PPATSGL _PATAREACDSCSA_ POINTER) + -PATSGL_RLOC_BuF COSCSwW ENENGTAD: | 
: } : 398 1+¢ 

3 1 44] i Now there is room for the branch instruction at the old location hole. 
3 1344 99 i Set up a buffer with the encoded branch instruction followed by NOP's to 
; ' 5 338 i insert there. Then write it to the old location hole. 
:1 8 4000 3 iF (.HOLE_SIZE GTR .BR_INSTRUCCOJ) 

: 1348 4001 THEN 
: 1349 4002 BEGIN 


K | 
PATEXA 16-Sep-1984 VAX=11 Bliss-32_V4.0-742 8 
v04-000 1228 Sep at 93: 33: 3 DISKSVMSMASTER: CPATCH. SRCJPATEXA. 832: 79 °F 
NEW_INS_PTR = PATSFREEZ((.HOLE_SIZE + A_LONGWORD - wp’ LONGWORD) ; 
; CHSCOPYT.GR INSTRUCC , CHSPTRTBR INSTROEE TS 0), _INSTR, 
§ LE_SIZE, CHSPTR(.NEW INS PTR, 0)5; 
PATSWRITE MENCTOLD LOC CHSPTR(.MEW_INS_PTR, 0), .HOLE_SIZE); 
4 20 PATSFREERELEASE (CHSPTR(.NEW_INS_PTR> 0)7 (.HOLE_SIZE +73)/4); 
ELSE 
PATSWRITE_MEM(.OLD_LOC, CHSPTR(BR_INSTRUCC1J, 0), .HOLE_SIZE); 
9 'e¢ 


is Now write out all the new instructions deposited. 


EXT Loc = ,OLD_L 
UNILE™< .NEXT_LOC Use .OLD_LOC+.HOLE_SIZE) 


ARG 


EGIN 
PAT sout MEM_LOC(.NEXT_LOC, NEW_TAB_STG, PATSGL_NEW_ASD, NO_CASE_TABLE); 
T_LOC = [PATSGL_NERT_LOC; 


ef ND: 
NEXT_LOC = 
WHILE (NEXT ‘tot Ute .PATSGL_PATAREALDSC$A_POINTERJ) 


BEGIN 
PaTsour MEM_LOC(.NEXT Loc. ee. TAB_STG, PATSGL_NEW_ASD, NO_CASE_TABLE); 
T Lot = "PAT$GL CNERT_L 
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RETURN; 
END; 


— 


! End of RELOCAT_INS 


OFFC 00000 memesutines 


RD Save R2,R3,R4, RS. R6,R7,R8B,RI,R10,R11 : 3661 
58 000000006 EF 9E 90002 MOVAB PATS$GL_RLOC BUF, R11 : 
SE FF50 cE 3 00 MOVAB -176(SP) : 
000000006 EF 10 88 0000 BISB2 #16 saréce. T+2 ; 3762 
000000006 EF 444 4 4:43 EF 00 0001 MOVL PAT$GL RLELABLS, Or LTSGL _SYMTBPTR : 3/8 
00000006 EF DO 000 9 MOVL § PATSGL~PATAREA, RO : 3771 
52 000000006 EF 3¢ 000 MOVZ2WL PATSGL~ TEMP Reur, R2 : 
5 60 81 O02E CMPW 0), R2 : 
B 0031 BGEQU ; 
51 000000006 EF D0 00033 MOVL PATSGL -JHPPTR. R1 : 3774 
46 «Al 04 AO D1 OOO3A CMPL «4 (RO), : 
36 12 0003F BNEG =«'1$ : 
AC pd 0041 PUSHL gLp Loc : 3777 
52 iff 5 044 HOVAB 11TR2), R2 ; 
7E 00000200 8F C? 00049 DIVL3 #512 Re - ; 
000000006 e 2 FB 00051 CALLS #2, PATSEXP AREA, : 
0 000000006 EF 00 00058 VL  PATSGL_PATAREA : 3778 
000000006 EF 60 81 F CMPW =s-« (RO), PATSGL erEMP _BuF : 
fe E 6 BGEQU 3$ ; 
7E 3€ 000 MOVZWL (RO), -(SP) : 3781 
04 AO DD 00068 PUSHL 4 (ROS ; 
7E 000000006 EF 3C O006E MOVZWL PATSGL_TEMP_BUF, -(SP) : 3780 
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v04-000 


000000006 


50 
Of 
0000007F 
FFFFFF80 
F8 
00007F FF 
FFFF8000 
F8 


FA AD 04 
F8 
FA 
04 


FB AD 04 


08 AC FB AD 


00000000v 
000000006 


000000006 


eateed : 


0 
7E 6 
046 =A 
006D80C2 i 
39 eae * ty EF 
6 4 A0 
59 04 af 
36 5 
AE FE AQ 
8F 04 a 
1 
8F 04 AG 
0 
AD 1102. BF 
1D 
8F 04 AE 
1F 
8F 04 ag 
1 
AD 3103 BF 
04 AE 
50 FB AD 
ae 50 
18 
AD 1706 = &F 
AD 11 
AE 04 
50 FB AD 
AE 50 
59 08 AC 
5A 50 
6 50 
55 000000006 _ EF 
08 00 
03 
0057 
E 
00000000G_ EF 
00000000° . 
A 
EF 04 
00000000G_ EF 
EF 59 fe 
000000006 EF 
08 AE 
7E 
EF 38 
eee he 
00608102 BF 
00 01 
AE 00000000G EF 
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BSSIGNAL 
PATAREA, RO 
NEW LOC 


“LOC, RO 
RO), “BR BISPLACEMENT 
DISPLACEMENT, #12 

BR_DISPLACEMENT, #-128 


4$ 
#4354, BR_INSTRUC 


BR_DISPLACEMENT, #32767 
sleeaitaaatarai #-32768 


#12547, BR_INSTRUC 
BR_DISPLACEMENT 


“INSTRUC, RO 
RO; BR_DISPLACEMENT, BR_INSTRUC+2 


#5894, BR_ INSTRUC 
#17, BR_INSTRUC+2 
a4, BR DISPLACEMENT 


“INSTRUC, RO 
RO; BR_DISPLACEMENT, BR_INSTRUC+3 
HOLE_SIZE, R9, RO 
RO, REXT_LOC 
RO, NEXT 
PATSGL_TEMP_BUF, SUCC_OLD_INS 
#9, #8; BR_INSTRUC, HOLE_SIZE 
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OLD TAB STG 
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#4, PATSOUT_MEM_LOC 
PATSGL_BUF SIZ 

LOCAL_BuF+T, PATSCP_OUT_STR 
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NEXT _PC 

-(SPY 

WEXT LOC 

#5, PATSINS_DECODE 

R NEXT_PC 


#7176450 
#1, LIBSSIGNAL 
PATSGL_BUF_SIZ, LOCAL_BUF 
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57 AE 9E 00176 MOVAB_ INSTRUC_BUF, NEW_INS_PTR ; 3856 : 

0 G EF 9F OOI7A PUSHAB PATSGL_TEMP. BUF : 3857) ; 

G EF 9F 00180 PUSHAB PATSGL-NEW_ASD : | ; 

50 00 G EF 3¢ 00186 MOVZWL PATSGL TEMP_BUF, RO : 3858 : 

6049 9F 0018) PUSHAB (RO)CROJ : F 

146 AE OF 0130 PUSHAB INS TRUC pur : 3857 ; 

68 AE 9F 0019 PUSHAB LOCAL : ; 

000000006 EF 9 FB 00196 CALLS @ oN _ENCODE : ; 

3 0 E 19D BLBS _=s-RO, : F 

000000006 FF 1A0 TSTB + PAT$GB_SUBST_IN + 3860 ; 

9 1 DIAG BEQL ss ‘1 : : 

57 000000006 FF 1 OIA MOVAB PATS$GB_SUBST_IN, NEW_INS_PTR + 3862 ; 

BB 1AF BRB 12 : : 

58 AE 9F 00181 11$: | PUSHAB LOCAL_BUF + 3864 ; 

or DD 00184 PUSHL #1 : ; 

006D810A 8F DD 001B6 PUSHL #7176458 : : 

000000006 00 03 FB 0018¢ CALLS #3, LIBSSIGNA : ; 

BF OB 01 A? 91 001C3 128: CMPB =s« 1 (NEW_INS_ PIR). #143 + 3868 F 

0f 13 001C8 BEQL 13$ : ; 

AF OF 01 A? 91 OOICA CMPB = 1(NEW_INS_PTR), #175 + 3869 ; 

07 13 OOI1CF BEQL 13$ ; ; 

CF oF 01 A? 91 00101 CMPB = 1(NEW_INS_PTR), #207 + 3870 ; 

OD 12 86158 BNEQ 14$ : F 

006D82CA 8F DD 00108 13$: PUSHL #7176906 : 3872 ; 

000000006 00 01 FB 001DE CALLS #1, LIBS$SIGNAL : ; 

7 67 9A OO1ES 14%:  MOVZBL (NEW_INS PTR), -(SP) + 3873 ; 

01 A? OF OO1EB PUSHAB 1(NEQ_INS PTRS : ; 

000000006 EF 9F OO1EB PUSHAB PATSGC_TEMP_BUF : F 

00000000v_ EF 03 FB OO1F1 CALLS #3, PATSFILC BUF ; ; 

0 08 Ac 6E C1 001F8 ADDL NEXT _PC, HOLE_SIZE, RO + 3874 ; 

08 AC 50 5A C3 001FD SUBL3 LOC, RO HOLE SIZE : : 

SA 6E b6 0020¢ MOVL NEXT “pC. *NEXT_LOC : 3875 : 

FFOD 31 0020 BRW ; 3831 : 

53 000000006 EF DO 00208 15$:  MOVL PATSGL_TEMP_BUF+4, CUR_LOC : 388 ; 

6 9 DO 0620F MOVL R9, NERT_PC™ : 388 ; 

6 10 AC DO 00212 MOVL  ASC_INS_PTR, NXT_ASC_INS : 3884 : 

50 000000006 EF v0 00216 16$:  MOVL PATSGL TEMP BUF+%, RO : 3885 ; 

51 000000006 EF C 0021D MOVZWL PATSGL- TEMP “BUF, R1 : : 

51 9 rai) 00284 ADDL2 ; ; 

51 53 D1 00227 CMPL cu _LOC, R1 : : 

03 1F 0022A BLSSU ; : 

00EB 31 002e¢ BRW 38 ; ; 

000000006 EF D4 OO22F 17$:  CLRL PATSGL.B : 3888 : 

000000006 EF 59 AE i: 0 5 WOVAB CAL gure: "PATSCP OUT_STR : 3889 : 

1 0 0c AC C D ADDL Sto. IRS S_SIZ. RO, R : 3890 ; 

51 53 D1 00 4g CMPL  CURTLOCT R1 : : 

if 1F 0024 BLSS : $ 

50 55 CO 00247 ADDL sure OLD_INS, RO > 3891 : 

50 53 D1 O024A CMPL CuR_COC,~RO 3 : 

14 if 024D BGEQU $ ; : 

54 04 ag DO 0024F OVL § 4(NXT_ASC INS), DECODED_INS : 3900 ; 

52 6 D0 0 23 MOVL (NXT_RSC_INS), NXT_ASC_INS : 3901 : 

000000006 EF 000000006 cf D4 6 36 MOVL PATSGL. krevaats” PRISGC. SYMTBPTR : 3908 : 

54 58 AE 3 0 63 18$:  MOVAB  LOCAL_BUF, DECODED_! : 3910 : 

000000006 EF 000000006 i DO 00 : MOVL PAT SCC OLOLABLS, eaLicl _SYMTBPTR : 3911 : 

E D4 00272 19%: CLRL (SP) : 3913 3 
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000000096 EF 3 0274 PUSHAB PATSGL_NEW_ASD ; : 
08 AE 9F O027A PUSHAB NEXT PC : ; 
7E 04 0027D CLRL  =(SPY : ; 
53 DD O0e7F PUSHL CUR_LOC : ; 

000000006 ff 9 F 1 CALLS #5, PATSINS_DECODE : ; 
3 0 »D 8 MOVL RO, CUR_LOC : ; 

D 1 B NEG : ; 

006D8102 8F DD p PUSHL 76450 + 3915 ; 

000000006 00 1 FB 00 CALLS #1, LIBS$SIGNAL : ; 
58 AE 000000006 EF 90 0029A 20$:  MOVB  PATS$GL_BUF SIZ, LOCAL_BUF + 3916 ; 

5 08 AE 9E 002A2 MOVAB  INSTRUC_BUF, NEW_INS_PTR : 3917 ; 

58 pp 0 Ag PUSHL : 3918 ; 

000000006 EF 9F 002A PUSHAB PATSGL_NEW_ASD : ; 

50 6B a O2AE MOVZWL PATSGL-RLOC_BUF, RO 3 3919 3 

6046 9F 00281 PUSHAB (RO) CNEW_LOTJ : : 

14 AE 9F 00284 PUSHAB INSTRUC_BUF + 3918 ; 

54 DD 00287 PUSHL DECODED-INS : ; 

000000006 cf 05 FB 00289 CALLS #5, PATSINS_ENCODE : F 
3 50 ES 00 C9 BLBS 0 : F 

000000006 ai § 002¢ TSTB + PAT$GB_SUBST_IN + 3921 ; 

9 13 002¢9 BEQL 21 : ; 

57 000000006 EF 9E 008¢8 MOVAB PATSGB_SUBST_IN, NEW_INS_PTR + 3923 ; 

12 11 002d2 BRB 22 ; ; 

58 AE 9F 00204 21$: | PUSHAB LOCAL_BUF + 3925 ; 

01 DD 00207 PUSHL #1 : : 

006D810A 8F DD 00209 PUSHL #7176458 : : 

000000006 00 03 FB O020F CALLS #3, LIBSSIGNAL : ; 
8F OB 01 A? 91 002E6 22$:  CMPB  1(NEW_INS_PTR), #143 + 3929 ; 

3 13 002E8 BEQL 238 : ; 

AF &F 01 A? 91 O02ED CMPB = 1(NEW_INS_PTR), #175 : 3930 : 

07 13 O02F2 BEQL 23$ : ; 

CF oF 01 AZ 91 002F4 CMPB = 1(NEW_INS_PTR), #207 + 3931 ; 

OD 12 002F9 BNEQ 24$ : ; 

006D82CA 8F DD OO2FB 23$:  PUSHL #7176906 : 3933 ; 

000000006 00 01 FB 00301 CALLS #1, LIBSSIGNAL : ; 
7E 67 9A 00308 24%:  MOVZBL (NEW_INS PTR), -(SP) + 3934 ; 

01 A? 9F 0030B PUSHAB 1(NEQ_INS_PTR) ; ; 

5B DD 00 OF PUSHL R11 : : 

00000000v_ EF 03 FB 0031 CALLS #3, PATSFILL_BUF : : 
FEFC 31 00317 BRW 16$ : 3885 3 

000000006 EF 000000006 EF dO 00314 25$:  MOVL PATSGL_RLCLABLS, PATSGL_SYMTBPTR : 3936 ; 
B DD 00325 PUSHL : 3937 ; 

000000006 EF 01 FB 0327 CALLS #1, PATSRESOLVE_INS : : 
0 000000006 EF p 0 : MOVL § PATSGL_PATAREA, “RO + 3944 : 

1 6B 3C 00 MOVZWL PATS$GL-RLOC BUF, R1 : 3945 : 

50 51 04 Ad C1 003 8 ADDL3 4(RO),"R1, RO ; : 
50 3A €2 00 D SUBL2 NEXT_LOC, RO + 3944 : 

04 AE 0 ce 0340 MNEGL RO, BR_DISPLACEMENT : 3945 : 

04 AE 02 C2 00344 SUBL2 #2. BR-DISPLACEMENT : ; 
0000007F &F 04 AE bi 0 CPL R’DISPLACEMENT, #127 > 3946 : 
FFFFFF8O 8F 04 aE pi 0 be CMPL R DISPLACEMENT, #-128 ; : 
08 AE 1102 er 80 6 5s mov #4354, INSTRUC_BUF sa? : 
OOOO7FFF 8F 04 AE D1 00364 26$: CMPL BR DISPLACEMENT, #32767 : 3954 : 
1F 14 0036C BGTR 28$ : 3 
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FFFF8000 &8F 04 AE Dt 0 i CPL BR DISPLACEMENT, #-32768 : : } 

08 AE 7103 sBF 80 7 MOVW #12547, INSTRUC_BUF + 3957 ; 

, Mw Sb 7E DECL BR_DISPLACEMENT : 3959 3] 

50 8 AF 9A 1 27$: MOVZBL INSTRUC_BUF, RO : 3960 ; 1 

OA AE 04 AE 20 28 0 3 nove RO, BR_BISPLACEMENT, INSTRUC_BUF +2 b woes : } 

08 AE 1706 =F B0 0 8p 28$ MOVW #5894, INSTRUC_BUF + 3964 37 

OA AE 11 E 039 MNEGB #17, INSTRUC_BOF+ : 3966 33 

04 AE 04 g 0397 SUBL2 #4, BR_DISPLACEMENT + 3967 31 

50 08 AE A 0039B MOVZBL INSTRUC _BUF, RO : 3968 33 

OB AE 04 AE 5 ¢8 039F RO, BR_BISPLACEMENT, INSTRUC_BUF +3 : 33 

7E 08 AE 9A O03A5 298 MOVZBL INSTRUC_BUF, -(SP) : 3970 31 

OD AE 9F 003A9 PUSHAB INSTRUC~BUF +1 : 31 

38 DD OO3AC PUSHL R11 : 71 

00000000v EF 03 FB OOSAE CALLS #3, PATSFILL_BUF : 31 

52 68 3C 0038 MOVZWL PATS$GL_RLOC BUF, R2 + 3975 31 

50 000000006 EF 00 00388 MOVL PATS$GL~PATAREA, RO : 31 

52 60 81 003BF CMPW 3s (RO), Re : 31 

52 1E 003C2 BGEQU 32$ : 31 

51 000000006 EF DO 003C4 MOVL § PATSGL_IHPPTR, R1 : 3978 31 

14 «AI 04 AO D1 003CB CMPL 4(RO),~20(R1) : ; 3 

2D 12 00300 BNEQ  30$ : 31 

59 DD Q03n? PUSHL R9 : 3981 31 

52 OFF C2 3 030, MOVAB 511(R2), R2 : 31 

E 52 00000200 8F C7 00309 DIVL3 #512, R2, -(SP) : 3:1 

000000006 EF 02 FB 003E1 CALLS #2, PAT$EXP_AREA : 31 

0 000000006 EF DO 00368 MOVL PATSGL_PATAREA, RO + 3982 .7 

6B 60 B1 OO3EF CMPW = (RO), PATS$GL_RLOC_BUF : 31 

22 1€ 003F2 BGEQU 32$ : 31 

7E 60 3C 003F4 MOVZWL (RO), -(SP) : 3985 31 

04 AO bp 003F7 PUSHL  4(ROS : 31 

7E 6B 3C OO3FA MOVZWL PATSGL_RLOC_BUF, -(SP) 3984 31 

08 11 003FD BRB 31$ : :1 

7E 60 3C OO3FF 30$: MOVZWL (RO), -(SP) : 3989 .4 

04 AO DD 00402 PUSHL  4(ROS : 31 

3¢ DD 00405 PUSHL Re : 3988 31 

0 DD 00407 31$: PUSHL a Z 3 7 

006D80C2 BF DD 00409 PUSHL #7176 : :1 

000000006 00 05 FB 0040F CALLS #5, LIBS$SIGNAL : 31 

7E 6B 3C 00416 32$: MOVZWL PATSGL_RLOC_BUF, -(SP) : 3991 :1 

04 AB DD 00419 PUSHL PAT$GL-RLOC~BUF +4 : 3 7 

50 000000006 EF DO O4i¢ MOV PATSGL~PATAREA, RO : 31 

04 AQ DD 04 PUSHL  4(RO) : 31 

000000006 EF 03 FB 00426 CALLS #3, PATSWRITE_MEM : 31 

0 000000006 EF DO 00420 MOVL. PATSGL_PATAREA, RO : 3992 :1 

60 6B A2 004 SUBW2 PATSGL~RLOC_BUF, (RO) : | 24 

51 6B 3C 004 7 MOVZWL PATSGL-RLOC~BUF . > 3993 : 1 

04 AO 51 CO O043A ADDL2. R1, 4 ; 31 

58 08 AC DO 0043 MOVL HOLE SIZE, R8 > 4000 :1 

58 FB AD 08 90 FD 044 CMPZV #0, #8, BR_INSTRUC, R8 : a7 

C 18 0044 BGEO ; 31 

50 03 AS % 44A HOVAB (R8), RO > 4003 71 

7E 50 4 C? 0044 DIVL , RO, =(SP ; 31 

000000006 fF 1 FB 45 CALLS #1. PATSFREEZ ; 31 

7 0 pO 0045 MOVL ; NEW_INS_PTR : : 1 

50 F8 AD 9A 0045C MOVZBL BR INSTRUC, ~RO : 31 


ie | 
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58 01 F9—soAD 50 2c 0460 MOVCS RO, BR_INSTRUC+1, #1, RB, (NEW_INS_PTR) : 4005 : : 
7E 57 7D ace? MOVQ NEW_INS_PTR, -(SP) + 4006 31 
9 DD 0046A PUSHL RY : 31 
000000006 Ef 03 FB 046 CALLS PATSURITE _MEM : 31 
0 03 =A 1 04 MOVAI $c) + 4007 31 
7E 50 04 C 047 DIVL ia) *¢5P) : : 1 
7 DD 00478 PUSHL ii INS_P : 31 
000000006 EF 02 FB 0047D CALLS f PAT SF REERELEASE : 31 
E 11 00484 BRB + 400 71 
58 0D 0486 33$ PUSHL 3a + 4010 31 
F9 «= AD OOF O48 PUSHAB BR_INSTRUC#1 : 31 
59 DD 0048B PUSHL ; 31 
000000006 EF 03 FB 0048D CALLS #3, PATSWRITE_MEM : 31 
SA 59 DO 00494 34$: MOVL. R9, NEXT_LOC + 4015 31 
59 58 CO 90497 ADDL2 ; + 4016 31 
59 5A D1 0049A 358: CMPL NEXT_LOC, R9 : 71 
20 18 00490 BGEQ  36$ ; 31 
E D4 0049F CLRL =(SP) + 4019 31 
000000006 EF 9F O04A1 PUSHAB PATS$GL_NEW_ASD ; 31 
00000000' + 9F 004A7 PUSHAB NEW_TAB_STG : 37 
A DD 004AD PUSHL NEXT_LO : 4 
00000000V EF 04 FB OO4AF CALLS #4, PATSOUT_MEM_LOC ; 31 
5A 000000006 EF DO 00486 MOVL § PATSGL_NEXTILOC> NEXT_LOC + 4020 1 
DB 11 0048D BRB 358 ; 31 
SA 56 DO OO4BF 36$: MOVL W_LOC, NEXT_LOC ; 31 
50 000000006 EF DO 004C2 37$: MOVL Ne eke PATARER RO : 4023 31 
04 AO 5A D1 004C9 CMPL -NEXT_LOC, 4(ROS : 
20 18 004CD BGEQ SBS ; 
7E D4 OO4CF CLRL =(SP) : 4026 
000000006 EF 9F 004D1 PUSHAB PATS$GL_NEW_ASD : 
00000000' EF 9F 00407 PUSHAB NEW TAB STG ; 
5A DD 00400 PUSHL NEXT_LO ; 
00000000V EF 04 FB O04DF CALLS #4, PATSOUT_MEM_LOC : 
5A 000000006 EF DO 00456 MOVL § PATSGL_NEXTZLOC> NEXT_LOC : 4027 
D3. 11 OO4ED BRB 37$ + 4023 
04 OO4EF 38$: RET : 4031 


; Routine Size: 1264 bytes, Routine Base: _PATSCODE + 0668 
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$ } BO Pt § ! GLOBAL ROUTINE PATSSUBST_INS (OLD_INS_PTR, INS_PC) = 

5 3 Hf 4034 1 !+4+ 

; : S7 rt 5 ! FUNCTIONAL DESCRIPTION: 

: 1385 40 : 1 ! This routine substitutes other instruction sequences for arenchetyee 

3; 1386 4038 1 ! instructions that have been relocated to a new address and whose branch 

; 1387 4039 1 ! displacements are now too small. The nyt tense table describes the 

: 1388 4040 1 ! possible substitutions. If the branch in the first replacement choice does 

3; 1389 4041 1 ! not reach, then the second replacement choice is used. Notice that the blank 

; 1390 rer | 1 ! Lines in the table separate groups of instructions that are handled 

s : 4 ther : similarly for substitutions. 

; 1398 4045 1 ! OPC INSTRUC REPLACEMENT 1 REPLACEMENT 2 

D4 1399 4046 1 ' ooeolUlC mw ee eee ———i—i—itwstststststi‘(‘é‘“‘é(‘“‘é‘“‘l kl ee ee ee ce ee es ee ee ee 

; 1395 4047 1! 

: 1396 4048 1! \ BNEQ <X> BEQL .+03, BRW <Xx> BEQL .+06, JMP <X> 

; 1397 4049 1! 1 BEQL <X> BNEQ .+03, BRW <X> BNEQ .+06, JMP <X> 

: 1398 4050 1! 14 BGTR <X> BLEQ .+03, BRW <X> BLEQ .+06, JMP <X> 

; 1399 4051 1! 15 BLEQ <x> BGTR .+03, BRW <X> BGTR .+06, JMP <X> | 

; 1400 $036 1! 18 BGEQ <x> BLSS .+03, BRW <X> BLSS .+06, JMP <X> | 

: 1401 4053 1! 19 BLSS <X> BLSS .+03, BRW <X> BLSS .+06, JMP <X> 

: 1402 4054 111A  BGTRU <xX> BLEQU +03, BRW <X> BLEQU .+06, JMP <X> 

: 1403 4055 1! 1B BLEQU <X> BGTRU .+03, BRW <X> BGTRU .+06, JMP <X> 

3 1404 4056 1! 1C€ BVC <X> BVS .+03, BRW <X> BVS .+06, JMP <X> 

: 1405 4057 1! 1D BVS <X> BYC .+03, BRW <X> BVC .+06, JMP <X> 

; 1406 4058 11 1£  BGEQU <x> BLSSU .+63, BRW <x> BLSSU .+06, UMP <x> | 

3: 1407 4059 1! 1F BLSSU <X> BGEQU .+03, BRW <X> BGEQU .+06, JMP <X> | 

: 1408 4060 1 ! £0 BBS <X> BBC .+03, BRW <X> BBC .+06, JMP <X> 

3: 1409 4061 1! E1 BBC <X> BBS .+03, BRW <X> BBS .+06, JMP <X> | 

> 1410 4062 1! Eg BBSS <X> BBCS .+0$, BRW <X> BBCS #08, JMP <X> 

: 1411 40635 1: €E BBCS <X> BBSS .+06, BRW <X> BBSS .+03, JMP <X> 

: 1412 4064 1! £4 BBSC <X> BBCC .+03, BRW <X> BBCC .+06, JMP <X> 

3 1413 4065 1! E5 BBCC <x> BBSC .+03, BRW <X> BBSC .+06, JMP <X> 

3; 1414 4066 1! E8 BLBS <x> BLBC .+03, BRW <X> BLBC .+06, JMP <X> 

3 1eh2 rent! : E9 BLBC <x> BLBS .+03, BRW <X> BLBS .+06, JMP <X> | 

3 1417 4069 1! £6 BBSSI <X> BBSSI .+02, BRB .+03, BRW <xX>  BBSSI .+02, BRB .+06. JMP <X> | 

> 1418 4070 1! E7 BBCCI <x> BBCCI .+02, BRB .+03, BRW <xX> BBCCI .+02, BRB .+06, JMP <X> 

> 1419 4071 1! Fe AOBLSS <X> AOBLSS .+02, BRB .+0%, BRW <X> AOBLSS .+02, BRB .+06, JMP <X> | 

3: 1420 4072 1! F AOBLEQ <x> AOBLEQ .+02, BRB .+03, BRW <X> AOBLEQ .+02, BRB .+06, JMP <X> | 

3: 1421 4073 1! F4 SOBGEQ <X> SOBGEQ .+02, BRB .+03, BRW <X> SOBGEQ .+02, BRB .+06, JMP <X> 

: 1056 rete : } FS SOBGTR <X> SOBGTR .+02, BRB .+03, BRW <X> SOBGTR .+02, BRB .+06, JMP <X> | 

3 1252 4076 1! 9D ACBB <X> ACBB .+02, BRB .+06, JMP <X> 

: 1425 4077 1! 3D ACBW <X> ACBW .+02, BRB .+06, JMP <X> 

3: 1426 4078 1! Fl ACBL <X> ACBL .+02, BRB .+06, JMP <X> 

: 1427 4079 1! 4F ACBF <X> ACBF .+02, BRB .+06, JMP <X> 

: 1428 4080 1! 6F ACBD <X> ACBD .+02, BRB .+06, JMP <X> 

3 1o6p 4081 1 ! 4FFD ACBG <Xx> ACBG .+02, BRB .+06, JMP <X> 

; ion rts : } 6FFD ACBH <X> ACBH .+02, BRB .+06, JMP <X> 

3 1636 4084 1! 11 BRB <X> BRW <X> JMP <X> | 

; 143 4085 1: 10 BSBB <x> BSBW <X> JSB <X> 

: 1434 4086 1! | 

3: 1435 4087 1! 3 BRW <X> JMP <X> 

: 1436 4088 1: 30 BSBW <X> JSB <X> | 
| 
| 
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: 1437 4089 1! 

: 1238 4090 1 ! In addition to the above instructions, there are also three case 
; 14 4091 1 ! instructions. None of these has a replacement. (In fact, the encoder 

: 1440 4092 1 ! does not know how to insert a case instruction correctly; it will only 

3; 1441 4095 1! insert the instruction parameters. The branch displacements must be 

: 1206 4094 1 ! inserted as .WORD directives.) 

3 144 4095 1! 

3 ited oRe ! } CALLING SEQUENCE: 

: 12e8 tees ! PATSSUBST_INS (OLD-ENCODED-INSTRUCTION-ADDRESS, PC-OF -INSTRUCTION) | 
; 1448 4100 1 ! INPUTS: 
3 1449 4101 1! 
; 1450 2136 1! OLD_INS_PTR = Address of counted instruction stream to be substituted 

; 102] htt : INS_PC = Unmapped address of where to put instruction 

; 1488 4105 1 ! IMPLICIT INPUTS: 
3 1454 4106 1! 
; 1455 4107 1! PATSGB_SUBST_IN = Buffer for substitution counted byte stream 
: 1456 4108 1! 
3: 1457 4109 1 ! OUTPUTS: 
: 1458 4110 1! 
; 1459 4111 1! NONE 

: 1460 ET 1! 

3: 1461 41135 1 ! IMPLICIT OUTPUTS: 

: re «| 4114 1! z é ! 

: 146 4115 1! The substitution binary stream is written into INSTRUC_BUF 

3; 1464 4116 1! as a counted byte stream. 

: 1465 4117 1! 

3 1698 4118 1 ! ROUTINE VALUE: 
3; 146 4119 1! ; ; 
; 1468 4120 1! FALSE if no substitution instructions were possible. 
: 1469 4121 1! TRUE if substitution was successful. 

: 1470 o1s¢ 1! 

3 1471 4125 1 ! SIDE EFFECTS: 

: 1006 4124 1! : 

3 147 4125 1! A substitution stream can now be written to memory, or an error ; 
3 1474 4126 1! reported. However, if an instruction had a label associated with it 

: 1475 4127 1! any branches elsewhere in the code to it will no longer work!!! 

3: 1476 4128 1! 
3 1477 it 4 1 !-- 

3: 1478 4130 1 

3; 1479 4131 BEGIN 

: 1480 $136 

> 1481 413 MAP 

3 1656 rt +: 2 OLD_INS_PTR : REF VECTORC,BYTE); ! Old binary instruction stream 

> 1484 4136 LITERAL , 

2 Rut BISE = SRS | fusinun displacenene for Bh 

; we = ‘ ! Maximum displacemen r 
> 1487 4139 BRB-OPCOBE = %x'11', ' Opcode for BRB instruction | 
3: 1488 4140 BRW_OPCODE = X"31", } Opcode for BRW instruction 

; 1489 4141 JMPOPCODE = &X*17', ! Opcode forJMP instruction 
: 1490 2i%¢ BNEG_OPCODE = 18 ‘ ' Opcode for BNEQ instruction 
3 1491 414 BLEQ_OPCODE = 2X'15', : Opcode for BLEQ instruction 
3 1438 4144 BGEQ OPCODE = 2x'18', ' Opcode for BGEQ instruction 
3; 149 4145 BLSSO_OPCODE = %x‘1F', ! Opcode for BLSSU instruction 


ooo 


++ 
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ee ee ee ce ee ee ee ee el et et ee el a el ee el a ee el a a el ee el el el el a el a ed ee ed ed el 


LOCAL 


instruction. 
TO: 


! 
; 
i 
1 
i 
; 
1 i 
len 
: if 
534 
535 
536 
337 THE 
538 
539 
540 
34) 
248 
544 
545 
546 
547 
548 
549 
550 


ok MK DE DE DE OK OK OK OC OC OO 


FEOWN K VEE 


BR_DISPLACEMENT : 


Handle the first group of substitutions. 
peers complement and a BRW, 
able. 


Therefore 
<BR INS> TO <X> 


<BR COM INS> TO .+03 


D_INS_PTRC1J] GEQU BNEQ_OPCODE AND 
D_INS_PTRE1J GEQU BGEQ_OPCODE AND 
D-INS-PTRL1) GEQU BBS _OPCODE 
D-INS-PTRC1] GEQU BLBS_OPCODE AND 
BEGIN 

'+4 


SIGNED LONG; 


AND .OLD-INS_PTR 


BRW <X> 


.OLD_INS_PTR[1] LEQ 
-OLD-INS-PTRE] 
1 


-OLDINS~PTR 
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(8) | 


Opcode for 
Opcode for 
Opcode for 
Opcode for 
Opcode for 
Opcode for 
Opcode for 
Opcode for 
Opcode for 


Opcode for 
' Opcode for 


BBS instruction 
BBCC instruction 
instruction 
instruction 


S instruction 
R instruction 
instruction 
BW instruction 
ACBL instruction 
ACBF instruction 
ACBD instruction 


L 
L 
8 
8 
0 
0 
C 
C 


Opcode for 
High byte of Opcode for ACBG instruction 
High byte wi A sore for ACBH instruction 


Opcode for 
Opcode for 
Opcode for 
Opcode for 
Opcode for 
Opcode for 


nstruction 
CASEW instruction 
CASEL instruction 
BSBW instruction 
BSBB instruction 
JSB instruction 


V 
D 
' 
i 
i 
i 
i 
i 
i 
i 
i 
; Opcode for A 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
: Size of BRB instruction 

! Size of BRW instruction 

! Size of JMP instruction 

! PC deferred instruction mode 
! Maximum number of binary bytes in an instr 


Displacement for branch instruction 


These may be replaced with 

i.e., opcodes BGTR through BLBC in the above 
The complement instruction must be set to branch around the BRW 
the instruction stream changes from: 


Q_ OPCODE) OR 
S0_OPCODE) Ps 


U BLE 
U BLS 

LEQU BBCC_OPCODE ) 0 
U BLB 


C_OPCODE ) 


i Build the gay Agee stream for the complement branch. 


Then build the 


PAT$GB_SUBST_IN 


CHSMOVE(.OLD_IN 
PAT$GB_SUBST~INL-OLD_INS_PT 
PAT$GB~SUBST~INL.OLD~INS~PTR 
BR_DISPLACEMENT = 


(.0 


Hy : 2 
+ OLB, INS_PTRCO} - .PAT$GB_SUBST_IN 


IF~(.BR_DISPLACEMENT LEQ MAX“WORD_DISP) A 


1] THEN (.OL6_INS_PT 

LD 1s PTRO1) = 1)); =! Set comet 

CHSPTRCOLD INS PTR J), CHSPTR(PATSGB_SUBST_INL2J)); ! 
+ 4 . 


WwW instruction with the old branch's displacement. 


PAT$GB_SUBST INFO] = BRV_INS SIZ + -OLD. INS PTRCOJ; 
1] = C1FP.OLB_INS PIR 


: set the entire stream Length 
RC1) = 1) 


ement opcode 
} ve in instructio 
et complement branch around BRW instructi 
t BRW anstruet ion opcode 
; | Compute new PC-relativ 


nm 


< 
4 


. 
e 
. 
e 
. 
o 
. 
° 
. 
. 
. 
o 
© 
. 
. 
a 
e 
a 
. 
. 
o 
7 
o 
7 
o 
. 
e 
* 
- 
. 
° 
+ 
o 
+ 
2 
. 
© 
o 
. 
a 
. 
. 
eo 
e 
. 
a 
. 
@ 
7 
. 
o 
7 
= 
7 
. 
. 
. 
. 
e 
~ 
a 
e 
7 
a 
. 
e 
. 
e 
. 
. 
. 
oe 
. 
° 
. 
a 
. 
. 
a 
7 
Y 
o 
o 
o 
e 
- 
. 
7 
e 
° 
ca 
. 
e 
. 
© 
7 
2 
* 
. 
. 
a 
. 
a 
° 
o 
. 
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8 m— oe GEQ MIN_WORD_DISP) ! Does displacement fit 
0 (PAT$GB_SUBST_INC .OLD_INS_PTRCOJ+2 J)<0,16,1> = .BR_DISPLACEMENT ! Yes, move it into 


ELSE 
ein 
i No, it did not fit. Use a JMP instead of a BRW, which 


' is the second choice in the table. The complement branch 
displacement must be changed, too. 


000 
; 1551 4203 4 ; 
.s ¢ 4204 3 
Wee 888 
He Bee : 
: 1 5 2509 ; 
; 1558 4210 4 3 
te BRE : 
: 1561 4 ig 4 PAT$GB_SUBST_IN 0] = .PATS$GB ST_INCO] + (JMP_INS_SIZ = BRW_INS_SIZ); ! Set new instructio : 
; 1286 4214 & PAT$SGB_SUBST_INE .OLD_INS_PTR ; = JMP_INS SIZ; !"Set comp lément branch around JMP instruc : 
: 156 4215 4 AT$GB_SUBST_ -OLD_INS_PTRLOJ+ = JMP_OPCODE; ! Set JMP opcode 3 
; 1564 4 18 4 $GB SUBST_INC .OLD PTRLO]+2 ] = PC_BEFERRED; ! Set instruction mode : 
: 1365 4o17 4 AT$GB_SUBST_INC .OLB_INS_PTRCOJ+3 J)<0,32,1> = .BR_DISPLACEMENT - ; 
: 1366 4g18 4 (JMP_INS_S1Z = BRW_INS_SIZ)7 ! Set new branch displacement | ; 
: 1368 4220 4 END : 
; 1569 4221 END 3 
BR 8 ga eal 
; 1328 42246 i The opcode was not one of the first group, therefore check to see if : 
; ie, ? 5 it was one of the second group. | : 
: 1575 4 5 if (.OLD_INS_PTRC1] EQLU BBSSI_OPCODE) OR ; 
; 1576 4228 (,OLD_INS_PTRC1) EQLU BBCCI_ OPCODE) OR | 3 
: 1577 4 $2 (,OLD-INS_PTRCL1) GEQU AOBLSS_OPCODE AND .OLD_INS_PTRC1] LEQU SOBGTR_OPCODE) 3 
; 1578 4230 THEN F 
Be Ge nec : 
: 1581 4 3 i Handle the second group of substitutions. THese eer be reptaced with : 
: 1386 4234 ! the instruction branch, a BRB instruction, and a BRW or JM 3 
3; 158 4235 ! instruction. This group includes instructions BBSSI through ACBD in : 
; 1584 £338 ! the above table. The instruction branch must be set to branch around $ 
3; 1585 4237 ' the BRB instruction. The BRB instruction must be set to branch around 3 
: 1586 4238 ' the BRW instruction. Therefore, the instruction stream changes from: ; 
; 138? ; 4 } <BR INS> TO <X> : 
: 1389 424) <BR INS> TO .+02 BRB TO .+03 = BRW <X> : 
: 1591 1528 PATSGB SUBST_INCO) = GLP INS PTRCO) + BRB ty 2 + BRW_INS_ SIZ; ! Set the stream Length : 
: 1336 4244 CHSMOVE(.OLD_IN _PTRCO “17> CHSPTR(OLD_INS_PTRCTJ), CHSPTR(PAT$GB_SUBST_INL1])); ! Copy old ins strea 3 
3; 159 4265 PATSGB_SUBST_INC .OLD_INS_PTR(O } = BrB_INS SIZ; ! Set displ to br around BRB ins 3 
3 1594 $sé6 PAT$GB_SUBST_IN{ .OLD_INS_PTRLOJ+ = BRB_OPCODE; ' Set BRB opcode 3 
3; 1595 424 PAT$GB_SUBST_INL .OLD_INS_PTR *§ = BRW_INS $12; ' Set BRB around BRW ins 3 
: 1596 4248 AT SUBST_INC .OLD_INS_PTRLOJ+ = BRW-OPCODE; ' Set BRW o coe | 
: 1597 4249 BR_DISPLACEMENT = .PATSGL-BR_DISPL + .OLD Tns_PTREO) - .PATS$SGB_SUBST_IN[O]; ! Compute new PC=reletiv | 
3; 1598 4250 IF~(.BR_DISPLACEMENT LEQ MAX-WORD_DISP) AND 
3 1 ? 33 4 cts cetcheemtinat GEQ MIN_WORD_DISP) ! Does displacement fit? 
: 169) ; 35 ; mip (PAT$GB_SUBST_INC .PATSGB_SUBST_INCOJ-1 J)<0,16,1> = .BR_DISPLACEMENT ! Yes, move in disptac | 
ites a88 eecIN 
; 1605 4 3 & i No, displacement did not fit, therefore use the 
: 1606 4258 4 ! second substitution choice. This includes changing 
3; 160 4259 4 ! the BRW to a JMP, and altering the branch around it. 


H 7 
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; 1608 4260 4 Hoos 

; 1609 4261 4 PAT$GB_SUBST_IN([O] = .PATSGB ST_INCO] + (JMP_INS_SIZ = BRW_INS_SIZ); ! Set a new stream s 
; 1610 4 $6 4 PAT$GB_SUBST_INL .OLD_INS_PTR *§ = JMP_INS_SIZ;~! Change BRB displacement around JMP | 
: 1611 4265 4 PATS$SGB_SUBST_INL .OLD_INS_PTRLOJ+ = JMP-OPCODE; ! Replace the BRW opcode 

; + a 4264 4 PAT$GB_SUBST_INL_ .OLD Hs Md +4 J = PC_BEFERRED; ! Set em poacens eo mode 

; 161 4265 4 (PAT$GB_SUBST_INC .PATSGB-SUBST_INCO] + A“BYTE = A_LONGWORD J)<0,32,1> = 

; 1614 4 06 4 -BR_BISPLACEMENT = (JMP_INS_SIZ = BRW_INS_SIZ); ! Adjust the displ 

; 1615 426 END; 
3 1918 4268 END 

3; 161 4269 ELSE 

; 1618 4270 ++ 
; 1619 4271 ! The opcode was not one of the second group, therefore check to see if it 
; 12 » ? f ! was one of the third group. 

: 16 é 4274 2 IF (.OLD_INS_PTRE1] EQLU ACBB_OPCODE) OR 

> 16 4275 (,OLD-INS-PTRE1) EQLU ACBWOPCODE) 0 

3 1624 427 (,OLD-INS-PTRE1] EQLU ACBLOPCODE) OR 

: 1625 4e7 (,OLD-INS-PTRC1) EQLU ACBF-OPCODE) OR 

; 1626 4278 (.OLD_INS_PTRL1) EQLU ACBD_OPCODE) OR 

$ 1627 4279 (,OLD-INS-PTRE1] EQLU %X'FB* AND -OLD_INS_PTREZ] EQLU ACBG_HICODE) OR 

; 1628 4280 (.OLD-INS-PTRCE1) EQLU %X"FD" AND .OLD-INS-PTRC2J EQLU ACBH-HICODE) | 
: 1629 4281 THEN 
; 1630 4 Hy BEGIN 

: 1631 428 ++ : 

: 1036 4284 ! Handle the third group of substitutions. These may be replaced with 

3; 163 espe ! the instruction branch, a BRB instruction, and a JMP instruction. 

; los 4286 ! This group includes instructions ACBB through ACBD in the above table. 

: 1635 4287 ! The instruction branch must be set to branch around the BRB 

: 1636 4288 ; ! instruction. The BRB instruction must be set to branch around the 

3 leet $583 ! BRW instruction. THerefore, the instruction stream changes from: | 
3; 1639 4591 ! CHANGES FROM: 

3; 1640 $538 ! <BR INS> TO <X> 
3 1641 429 ! TO: 

: 1966 $$3¢ <BR INS> TO .+02 BRB TO .+06 JMP <X> 

3 1644 4296 3 PAT$GB_SUBST_INCO] = .OLD_INS_PTRCO] + (JMP_INS_SIZ + BRB_INS SIZ); ! Set the stream Length 
3; 1645 4297 3 CHSMOVE(.OLD_INS_PTRCOJ-2, CHSPTR(OLD_INS_PTRL1J), CHSPTRTPATSGB_SUBST_INC1])); ! Copy old ins strea | 
; 1646 4298 H PAT$GB_SUBST_INC.OLD_ NS_PTRCOJ-1) = GBRB_INS_SIZ; ' Set diSpl to br around BRB ins 

3 1647 i344 PAT$GB_SUBST_INC.OLD_INS_PTRCOJ) = 0; ! Clear other byte of displ word 

3 1648 4300 PAT$GB_SUBST_INL.OLD_INS_PTRLOJ+1) = BRB_OPCODE; ' Set BRB opcode 

: 1649 4301 PAT$GB_SUBST_INC.OLD_INS_PTRLO *§ = JMP_INS S12; ! Set BRB around JMP instruction 

: 1650 rh} PAT$GB_SUBST_INC.OLD_INS_PTRLOJ+3) = JMP_OPCODE; ' Set BRW opcode : | 
3; 1651 $38 PAT$GB-SUBST_INL.OLD_-INS PTRCOJ+4) = PC_BEFERRED; ' Set Tnstryes (oe mode 
: 1036 4304 BR_DISPLACEMENT = .PATSGC_BR_DISPL + .OCD_INS PTRLO) - .PATS$GB suest INCO]; ! Compute new PC-relativ. 
; 1653 4305 (PRTSGB_SUBST_INC “PAT$GB_SUBST_INCO] + ATBYTE - A_LONGWORD J)20,32,7> = .BR_DISPLACEMENT; ! Adjust 

3; 1655 4309 ELSE 

3 1928 rs !++ 

3; 165 4309 ! The opcode was not one of the third group, therefore check to see if it 
3 1938 $319 : was one of the fourth group. 

: 1660 4 \¢ IF (.OLD_INS_PTRC1] EQL BRB_OPCODE) OR (.OLD_INS_PTRC1) EQL BSBB_OPCODE) 

: 1661 431, THEN 

3 1o06 4314 BEGIN 

: 166 4315 '+¢ . ; 

3 1664 4316 ! Handle the fourth group of substitutions. THese may be replaced with 
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; 1665 4317 ' the next larger sg es eaeny & branch instruction of the same type. ; 
3 1998 ‘ 18 ; This group includes astruct tons BRB and BSBB. These instructions . 
: 166 431 ' can be handled Apes because 3 4 
3 1998 4320 ' (1) They have the same binary format and : 4 
i; 166 4301 i (2) The difference in opcodes for this branch | 4 
: 1670 4 ¢ ‘ eiepecenens and the next larger is the sam 3 4 
; 1671 4 ! Therefore, because of (1), the var spies uae INS. $12 and : 4 
: 1678 4304 i BRUINS. S12 would be identical to 3ps8e S12 a 2 
; 167 4325 ' BSB. INS_SIZ. Also, because of ( ch RW sabcope’ = BRB_OPCODE) 3 
3 1ore : § _is the same as (BSBW_OPCODE - “88 ” pcovey. 4 
; 1676 4328 bATSGB_ suast F-1NE) = BRW_INS SIZ Set ins stream size ¥ 
3; 167 4329 PAT$GB mie INS PTRE1I + (BRW TAS PYREOI are: oP CODED: ' Set_new op code | 
; 1678 4330 BR “OTSPLA WOE MENT 2 L-BR_BISPL + .OLD_! 0] - .PATS$GB_ siest. INCOJ;  tonpute new displ s 4 
; 1679 4331 1F~(.BR LOISPLACEMENT. 8 tmAK? “WORD_DISP) AND | 
3 1e80 2 § & ' ener DISPLACEMENT GEQ MIN_WORD_DISP) ! Does displ fit? i 
: 183 4334 ; (PAT$SGB_SUBST_INC2])<0,16,1> = .BR_DISPLACEMENT ! Yes, move displ into stream 3 4 
; 168 4335 ELSE a 
3 ef: 2 $ ? BEGIN ef 
: 1o38 4 $ 4 | "No. pregtocogens did not fit. A longword displacement must be - 4 
3 ion ? H 2 i. used herefore, convert to a JSB or JMP instruction. :! 
: 1689 4341 4 PAT SGB Sir ties iNet = JMP_INS_SIZ; Set new stream size | 34 
: 1690 $326 4 PAT s ecaperen Erato, INC1) + (JMP -o°¢be - BRW_ OPCODE): ! Set new opcode s 4 
; 1691 ry re 4 PATSCB" SuBsT~ IN i = Set instruction mode sf 
; 169¢ 4344 4 (PAT$GB_ yest} 13<0 «* DISPLACEMENT ~ | 24 
; 169 4345 4 S12 NS'SIZ); ! Compute new displacement z 4 
3 1694 4 #6 4 END | i 4 
; 1695 434 END | i 
: 1897 6349 a | : | 
: 1698 4350 i The opcode was not one of the fourth group, therefore check to see if it | a4 
3 i 04 $32) _ was one of the fifth group. i 
; 1701 4338 iF (.OLD_INS_PTRC1) EQL BRW_OPCODE) OR (.OLD_INS_PTR[1) EQL BSBW_OPCODE) | 3 
3 1708 4354 THEN 2 4 
ime 8g regi et 
+ 1705 1389 i Handle the fifth group of substitutions. These may be replaced with a4 
3 1708 4358 ! the next larger displacement branch instruction of the same type. | 3 4 
; 170 4359 ! This group inc Luges instructions BRW and BSBW. These instructions 2 4 
: 1708 4 ' can be handled simi cory because: 3 
3 17 4361 ' (1) They have the same binary format, an 3 
3; 1710 4 § ' (2) The difference in opcodes ya this rea displacement a 
31711 4 : and the next larger is the s | a 
3 Har & ! Therefore, beacuse of (1), gue variable a INS_SIZ and JMP_INS_SIZ an 
3 171 4365 i would be identical. Also, because of (2), (JMP_OPCODE - BRW-OPCODE) 31 
; 76 cies is the same as (JSB “opconé © - BSBW_OPCODE). | i 
. os i «e 1 
: 1716 4368 PATSGB_ SUBST _ NCO = JMP_INS SIZ t ins stream size 3 
eta 4369 PAT$GB SUBST” = ,OL5 INS, prac13 + (JMP_OPCODE - BRW_ oPeODE) {Set opcode 2 
: 1719 4371 vt ies Parag BRD wien + ,OLD_INS PTR(O) - pata. SUBS! ~ {NCO}; ! Get displacement 3) 
i: 1720 437¢ T$GB_SUBST hess -BR_DISPLACEMERT ; ! Compite br-displ | : 
| 
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| 
4374 2 ELSE | : 
4 % RETURN (FALSE); | : 
437 RETURN (TRUE); ‘ 
4378 1 END; ! End of PATSSUBST_INS | ; 
Py 
=a, 
3 
OFFC 00000 .ENTRY PATSSUBST INS, Save R2,R3,R4,R5,R6,R7,R8,- = 4032 
5B 00000000G EF 9E 9900 MOVAB PATS$GL{BR_DISPL, R11 : 
5A 000000006 EF 4 000 MOVAB PATS$GB-SUBST_IN, R10 : 
59 04 Ag DO 00010 OVL OLD_INS_PTR, RO : 4185 
57 01 AS 9A 00014 MOVZBL 1(R9), R : 
12 57 91 00018 CMPBéR7, =#i8 : 
93 1F 00018 BLSSU'1$ : 
15 7 91 00010 CMPBsR7, #21 : | 
22 1B 90020 BLEQU 4$ : 
18 91 000 : 1$ CMPBeR7, «#24 + 4186. 
05 1F 000 BLSSU 2 : 
1F 57 91 00027 CMPB eR, #31 : 
18 1B 0002A BLEQU 4$ ; 
EO 8F 57 91 0002C 2$ CMPB)seaR7, «#224 + 4187 
06 1F 00030 BLSSU3$ : 
ES 8F 57 91 90032 CMPBsaR7,-#229 ; 
Of 1B 00036 BLEQU 4$ : 
E8 BF 57 91 00038 3$: CMPBsaR7, «#232 : 4188 
68 1F 9003¢ BLSSU 8S : 
E9 «oF 57 91 000 E CMPBsaR7, «#233 ; 
65 1A 0004 BGTRU 8$ : 
56 69 9A 00044 4$: MOVZBL (R9), R6 + 4195 : 
6A 56 03 81 00047 ADDB3 #3, R6, PATSGB_SUBST_IN : 
06 57 Eg 00048 BLBC m + 4196 
50 FF OA? OSE O04 MOVAB -1(R7), RO ; 
04 11 0005 BRB ; 
50 01 A? 3 0054 5$: MOVAB 1(R7), RO : 4197 
01 «AA 50 90 00058 6$: MOVB RO, PATSGB_SUBST_IN+1 + 4196 
50 FE Ab YE 0005C MOV -2(R6), R : 4198 
02 AA 02 Ag 0 9060 MOVC3 RO, 2(R9), PATSGB SuBsT_IN¢2 ; 
6A46 90 00046 MovY8 #3. PAT$GB_SUBST_IN R6) : 4199 
01 AAG 1 yu O006A MOVs #49, PAT$GB_SUBST_IN+1(R6] : 4200 
50 68 t ci 6f ADDL3 PAT$SGL_BR_DISPL, R + 4201 
6A 9A 5 MOVZBL PAT$GB_SUBST IN, BR.DISPLACEMENT : 
58 50 3 C3 76 SUBL @R_DISPLACEMENT, RO BR_DISPLACEMENT 3 
OOOO7FFF © BF 38 D1 OO7A cAPL P7DISPLACEMENT, #32767 > 4202 
FFFF8000 8F 53 1 i CHPL BR_DiSPLACEMENT, #-32768 ; 4203 
02 nag Hi ac PUSHAB PATSGB_SUBST_IN¢2[R6] + 4205 
6A 3 § 38 7$: ADDB2 #3, PAT$GB_SUBST_IN + 4213 
6A46 $ 9 MOVB #6. PAT$GB~SUBST~INCR6 + 4214 
1 AA46 9 99 MOVE #28, PAT$GB_SUBST_IN+1 R6] + 4215 
2 AAGE 1 ge i’ MNEGB #17. PAT$GB~SUBST~IN+Z2LR6 : 4 16 
03 AAG6 9F OOOA PUSHAB PAT$GB_SUBST_IN*3CR6 > 421 


] 

x 
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zE 11 Q00A7 BRB 138 P | ; 
57 9 CMPB sa? «#230 + 4227 ; 
1g 1 AD BEQL «6s«O9S : ; 

9 CMPBseaR7, #231 t 4228 ; 

: 1 83 BEQL =so9 : ; 

91 0008 (MPR OR?, #242 : 4229 | : 

g 1F 00089 BLSSU 1 : : 

5? 91 00088 CMPBsaR7, «#245 : : 

é¢ 1A OO00BF BGTRU 14$ : ; 

: A 000C1 9$: WOVZBL (RO), R6 + 4243 ; 

5 81 0004 ADDB3 #5, R6, PATSGB_SUBST_IN : ; 

A c8 vet Ne + 4244 3 

5 cc MOVCS RO, 1(R9), PAT$SGB_SUBST_IN¢1 : ; 

0 D MOVB #2. PAT$GB_SUBST_T + 4245 ; 

11 90 00006 MOVB #17, PAT$GB_SUBST_IN+1 R6] + 4246 ; 

3 90 0000 MOVB #3, PAT$GB_SUBST_IN : + 4267 ; 

1 90 000E 4$, PAT$GB_SUBST_IN+3CRO6] + 4248 ; 

6 ci OE R6, PAT$GL_BR_DISPL, R + 4249 ; 

6A A 000E9 WOVZBL PAT$GB_SUBST_IN, BR.DISPLACEMENT : ; 

58 8 C3 OOOEC SUBL3  BR_DISPLACEMENT, RO; BR_DISPLACEMENT : ; 
OOOO7FFF BF 58 Di 000FO BR~DISPLACEMENT, #32767 + 4250 ; 
15 14 000F7 BGTR 11 : ; 

FFFF8000 8F 58 D1 000F9 CMPL §_ BR_DISPLACEMENT, #-32768 + 4251 : 
0c 19 00100 BLSS 118 : ; 

50 6A 9A 0102 MOVZBL PAT$GB_SUBST_IN, RO + 4253 ; 

FF AAGO 9F 0010 PUSHAB PAT$GB~SUBST~IN-1(RO] : ; 

) 3 58 B60 BOR 10$: MOVW BR_DISPLACEMENT, a(SP)+ 3 3 

tp 11 0010¢ BRB 138 : ; 

6A 03 80 OO10E 11$: ADDB2 #3, PATSGB_SUBST_IN + 4261 ; 

g AAG 06 90 00111 MOVB #6. PAT$GB~SUBST~IN+2(R6] + 426 ; 
03 AAG6 17 90 00116 MOVB #2, PAT$GB_SUBST_IN+3CR6] + 426 : 
AAG 11 BE 00118 EGB #17. PAT$GB~SUBST~IN+4(R6) + 4264 ; 

50 6A 9A 001 9 MOVZBL PAT$GB_SUBST_IN, RO : 4265 ; 

FD AAGO i 001 PUSHAB PAT$GB~SUBST~IN-3CRO] > 4266 ; 

9€ FD «AB OE 01 7 128: MOVAB <-3(R8)> a(SPY+ : ; 

79 11 00128 13$: BRB 17 : 4227 ; 

90 8F 7 91.0012D 148:  CMPB  R7, #157 + 4226 ; 
1 13 00131 BEQL : : 

3D 7 91 00133 CMPBséR7,, #61 : 4275 ; 

Hs 13 00136 BEQL F ; 

Fl BF 7 91 001 CMPBsaR7, -#241 + 4276 ; 
2 13 Oi C BEQL 16$ ; : 

4F OF 91 001 CMPBséR7,, -#79 : 4277 ; 
29 13 14 BEQL 168 ; : 

6F oF 91 0014 CMPBséaR7, #111 : 4278 3 
1A 13 00148 BEQL § ; : 

FD oF 57 91 OO14A CMPBséR7, «#253 : 4279 3 
07 12 0014 BNEQ 5$ : : 

4F OF 02 Ag 4 1 CMPB ss 2(R9),,_- #79 ; : 
QD 13 001 BEQL = ©=—-16$ : : 

FD oF 91 00157 158:  CMPB R7, #253 + 4280 : 
48 12 00158 BNEQ «188 : | : 

6F oF 02 ad 91 001 CMPB #(R9), #111 ; : 
12 001 BNEQ 3 3 

A 00164 168: MOV ZBL (RO), R6 + 4296 : 

1 00167 ADDB a R6, PATSGB_SUBST_IN ; ; 

— 00168 MOVAB =-2(R6). RO : 4297 : 


7 | 
PATEKA 1b-se -1984 00:30: VAX=-11 Bliss-32 V4.0-742 Page 52 
v04=000 180-1984 19:89:35 DISKSVNGHASTERCEPAT CN. SRCIPATEXA.B32¢4%" (BS. 
01 AA 01 a9 16F MOvC3 RO, 1(R9), PATSGB.SUBST_IN+1 ; | 
FF AAG6 3 5 195 VB #2. PAT$GB_SUBST thet tne) t 4 98 
6A46 94 OO17A CLRB = PAT $GB SuBsT INCR6) : 4 
1 AAG6 11. 90 0017D MOVB #17, PAT$GB_SuUBST Ins ER¢) : 4300 
; AAG6 06 90 001 g MOVB ag PATSGB SUBST_IN+2[R6 + 4301 
AAGG 17 90 001 MOVB of 3, PATS$GB_SUBST_IN+3(R6 i 4308, 
4 AAG 11 BF 18¢ NE GB #17, PAT$SGB~SUBST~IN+4CR6 + 430 | 
50 6B 56 7 191 ADDL3 6, PAT$GL_BR_DISPL, R + 4304 
5 6A A O19 MOVZBL PAT$GB_SUBST_IN, BR_DISPLACEMENT : 
58 5 A ¢3 198 SUBL3  ®BR_DISPLACEMENT. RO; BR_DISPLACEMENT : 
5 6A 9A 0019C MOVZBL PAT$GB_SUBST_IN, ; 4305 
FD Aas 9F 0019F PUSHAB PAT$GB~SUBST~IN-3(RO] : 
9E 58 DO O01A3 MOVL BR_DISPLACEMENT, a(SP)+ : 
70 11 O1A6 17$: BRB + 4274 
11 57 91 0O1A8 18$:  CMPB 7, #17 + 4312 
5 13 001AB BEQL F 
10 7 91 OO1AD CMPBsaR7, #16 : 
F 12 00180 BNEQ F 
6A 03 90 00182 19$:  MOVB #3, PAT$GB_SUBST_IN + 4328 
01 AA 57 20 81 001B ADDB3 #32, R7, PAT$GB_SUBST_IN+1 + 4329 
50 69 9A O01BA MOVZBL (R + 4330 
50 68 CO 001BD ADDL2  PATS$GL_BR_DISPL, RO : 
58 6A 9A 9010 MOVZBL PAT$GB~SUBST_IN. BR_DISPLACEMENT : 
58 50 58 C3 001C SUBL3 BR_DISPLACEMENT. RO; BR_DISPLACEMENT : 
QOOO7FFF BF 58 01 001C7 CMPL § BR-DISPLACEMENT, #32767 + 4331 
OF 14 OO1CE BGTR : 
FFFF8000 8F 58 D1 00100 CMPL §_ BR_DISPLACEMENT, #-32768 + 4332 
06 19 00107 BLSS : 
02. AA 58 BO 00109 MOVW BR DISPLACEMENT, PAT$GB_SUBST_IN+2 + 4334 
39 11 001DD BRB ; 
6A =6 90 OO1DF 20$: §§ MOVB u6 PAT$GB_SUBST_IN + 4341 
01 AA 1A 82 OO1E2 SUBB2 #26, PAT$GB_SUBST_IN+1 > 434 
02 AA 11 BE OO01E6 MNEGB #17. PAT$GB~SUBST~IN+2 + 434 
03 AA FD AS 99E OO1EA MOVAB -3(R8), PATSGB_SUBST_IN+3 + 4344 
27 11 OO1EF BRB : 4331 
31 7 91 OO1F1 21$:  CMPB  R7, #49 > 4353 
05 13 001F4 BEQL : 
30 57 91 001F6 CMPBséR7, #48 : 
21 12 001F9 BNEQ 4$ ; 
6A 6 90 OO1FB 22$: # MOVB #6, PATS$GB_SUBST_IN + 4368 
01 «AA 57 1A 8 OF SUBB3 #28, R7, PAT$GB_SUBST_IN+1 > 4369 
02 AA 11 BE 0020 NEGB #17, PATSGB_SUBST_IN+2 : 4370 
50 69 9A 00207 MOVZBL (R9S, RO : 4371 
50 6B 0 0 A ADDL2 PATS$GL_BR_DISPL, RO : 
oT 6A A NOV ZBL PAT$GB-SUBST_IN, BR_DISPLACEMENT : 
58 50 8 C3 00210 UBL3 BR_DISPLACEMENT. RO; BR_DISPLACEMENT : 
03 AA 58 0 99 14 MOVL BRTDISPLACEMENT, PATSGB~SUBST_IN+ : 4372 
50 01 00 6 18 238: MOVL #17 R : 4377 
04 00218 RET : 
50 b4 00 1C 246%:  CLRL RO : 4378 
4 OO2ZIE RET 3 


; Routine Size: 543 bytes, Routine Base: _PATSCODE + 0B5B 
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000 
7 4379 
7 4380 
750 4381 
731 4 ¢ 
7 ¢ 4 
7 4384 
734 4 $2 
735 4 § 
736 438 
737 4388 
738 4389 
739 4390 
740 4391 
741 4 4 
re 439 
74 4394 
744 4395 
745 4396 
746 4397 
747 4398 
748 4399 
749 4400 
750 4401 
751 ret} 
Peg 440 
75 4404 
754 4405 
755 4406 
756 4407 
757 
758 
759 
760 

: 

4 

5 

6 

7 

68 

69 
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16-Sep-1984 00:30: VAX-11 Bliss-32_ V4.0-742 
10-380- 1382 99:33:43 DISKSVMSMASTER: CPATCH.SRCJPATEXA.B32; 
GLOBAL ROUTINE PATSOUT_MEM_LOC (LOCATION, PREFIX_STG, ASM_DIR_TBL, CASE_TBL) = 


e+ 


i FUNCTIONAL DESCRIPTION: 


Outputs the value of a ayeery Location to the output 
device. If this routine is called as a result of an EXAMINE 
command, the location itself is also displayed, followed by 
a colon and a tab. 


aoe, SOEPERT YER mode settings are used to control the output 


style. 

CALLING SEQUENCE: 
PATSOUT_MEM_LOC () 

INPUTS: 
LOCATION = Unmapped location whose contents are to be displayed. 
PREF IX_STG - ets sere to output before the Location 
ASM_DIR_TBL - Address of assembler directive table descriptor 
CASE_TBC - TRUE => Print CASE dispatch tables 


IMPLICIT INPUTS: 
PATSGL_CONTEXT CEXAMINE_BIT] 
PATSGL_MOD_PTR 
OUTPUTS: 
TRUE for success, FALSE for failure. 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
TRUE or FALSE 
SIDE EFFECTS: 


Data is output to the data device. 
memory location is not readable. 


- If this bit is set, the address of the 
value is also displayed. 
- Pointer to the current mode level 


An error message is produced if the 


BEGIN 
LOCAL 
MAPPED_LOC : REF VECTORC,BYTE), ' Repped address of deposit location 
ISE_ADDR: REF VECTORL,BYTE) i ISE address for deposit location 
OUT“VALUES : VECTORC fTY_OUf_WIDTH, BYTE) 
OUTPUT_BUFFER : VECTORC TTY_OUT_WIOTH, BYTE); 


Pp 


age 
79 


PATEXA 
v04-000 


; 1785 44 § 
iW i 

; 1385 44 § 
3; 1789 4440 
3; 1790 4441 
3: 1791 444 
$ 1738 444 
; 179 4444 
: 17946 4445 
: 1795 444 
3 18 444 
: 179 4445 
3; 1798 4449 
3: 1799 4450 
; 1800 4451 
; 1801 ret} 
3 138 445 
; 180 4454 
: 1804 4455 
3; 1805 4456 
3: 1806 4457 
3; 1807 4458 
; 1808 4459 
3; 1809 4460 
3; 1810 4461 
> 1811 446 
4 1olg 446 
3; 181 4464 
: 1814 4465 
3; 1815 4466 
3: 1816 4467 
3; 1817 4468 
3; 1818 4469 
; 1819 4470 
: 1820 4471 
: 1821 4472 
: 1822 4473 
: 1823 4474 
3: 1824 4475 
; 1825 4476 
3; 1826 4477 
3; 1827 4478 
: 1368 4479 
: 1829 4480 
; 1830 4481 
: 1831 448 
5 1356 448 
3: 183 4484 
3: 1834 4485 
3: 1835 448 
: 1836 448 
3; 1837 rr 3 
; 1838 44 

3; 1839 4490 
: 1840 4491 
: 1841 4492 


PE PWS PRE EEE ESPANA SS PWS WAE NAAN NINN NNN PONONUNIPOPOPU PONONoNoPonononungd 


PATSCP_OUT_S 
PATSGL—BUF —S 


144 
First chec 


'e¢ 


'e¢ 
Ha 


ELSE 


if (PREF IX_ 
PATSFAO_PUT(.PREFIX_STG); 


PATSMAP_ADDR(.LOCATION,MAPPED_LOC,ISE_ADDR); 
PATSOUT SYM_VAL (LOCATION, LORG_LENGTR, 0); 


PAT$ ¢; 
PATSFAO_PUT ( COLON_TAB_STG 5; 


iF ( 
THEN 


N 7 
13-800 138e 99:89:93 «UN sumBuaSfencce 


. “NS 
ne 
mm 


144 
Initialize buffer address and size. 


TR = re 13 
IZ = 0; 


k if there is a prefix string to be output. 
STG NEQ 0) 


i Now if the examine bit is set then output a location which is mapped 


If the examine bit is not set, then output an expression 


! by P 
! for the EVALUATE command. 


if .PATSGL_CONTEXT CEXAMINE_BITJ 

THEN 
ieee 
i Print the address, aw ag it come out as a longword regardless of 
! the current output mode length. 


! Compute mapped address 


ndle output as symbolic instructions separately. 
-PAT$GB_MOD_PTRC MODE_INSTRUC J] ) 
A eeaeee = PATSINS_DECODE (.LOCATION, OUTPUT_BUFFER, LOCATION, .ASM_DIR_TBL, .CASE_TBL) 
GIN 


BE 
SIGNAL pt 


G NODECODE) ; 
ne LSE); 


J 
ELSE 


BEGIN 3 
PATSMAP_ADDR (.LOCATION, MAPPED_LOC, ISE_ADDR); 
If -PATSGL_CONTEXT CEXAMINE_BITJ 


PATSGL_NEXT_LOC = .LOCATION; 


lee 
PATSGL_LAST_VAL may be set within PATSINS_DECODE. 


END 
BEGIN 
'e¢ 
' Special attention for ascii output. 
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i Call a routine which does the whole thing - inc Luding 
' flushing the output and pretense an error message if no 
oO 


; 1806 4493 4 l—< 
3 184 4494 5 IF (.PAT$GB_MOD_PTR CMODE_ASCI1]) 
> 1844 4495 4 THEN 
>: 1845 4496 4 +4 
; 1846 4497 & : Simoty output the number of characters 
>; 1847 4498 4 ! implied by the current MODE_LENGTH setting. 
>; 1848 4499 4 l—< 
3; 1849 4500 5 BEGIN 
; 1850 4501 5 PATSGET_VALUE (.LOCATION, .PAT$SGB_MOD_PTRCMODE LENGTH], OUT_VALUES); 
; 1851 1208 5 PATSFAO PUT (CS_ASCII .PAT$GB_MOB PTRCMODE_LENGTH), OUT_VALCUES); 
: 183¢ 4503 5 PATSGL_NEXT_LOC-= .LOCATION + .PATSGB_MOD PTR [MODE LENGTH; 
: 187 tepe 2 CATES. LAST vm. = .(.MAPPED_LOC) <0, TPATSGB_MOD_PTR CMODE_LENGTH] * 8>; 
; 1855 4506 4 ELSE ' Otherwise we have one of the usual modes 
> 1856 4507 4 IF .PATSGL_CONTEXT CEXAMINE_BIT) 
3: 1857 4508 4 THEN 
; 1858 4509 5 BEGIN 
: 1859 4510 5 PATSGET_VALUE(.LOCATION, .PAT$GB_MOD_PTRCMODE_LENGTHJ, OUT_VALUES); 
; 1860 4511 5 PATSOUT_NUM_VAL(.OUT_VALUES, 0, TRUE); 
> 1861 aig 5 PATSGL_NEXT-LOC = .LOCATION + .PATSGB_MOD_PTR CMODE_LENGTHI; 
; 1862 4513 5 PATSGL_LAST_VAL = .OUT_VALUES <0, .PATSGB_MOD_PTR CMODE_LENGTH] * 8>; 
: 186 4514 4 END; 
3: 1864 4515 4 END 
3; 1865 4516 3 END 
3; 1866 4517 ¢ ELSE 
3; 1867 4518 BEGIN 
>; 1868 4519 3 '+4 
: 1869 4520 3 ! Output the value for the EVALUATE command here then return. 
; 1870 4521 3 ' ALL other commands have set the examine bit. Check for different 
: 1871 4522 3 ! output modes, Literal or instruction. 
3 1872 4523 3 len 
3: 1873 4524 4 IF (.PATSGL_CONTEXTCLITERAL_BITJ) 
: 1874 4525 3 THEN 
3; 1875 4526 4 BEGIN 
3; 1876 4527 4 l+¢ 
3; 1877 4528 4 
3; 1878 4529 4 

3: 1879 4530 4 ' such Literal translation can be found. 

; 1880 4531 4 leo 

3; 1881 $236 4 DISPLAY_LVTS(..LOCATION); 

3 ieee 4533 4 

; 188 4534 4 1e4 

; 1884 4535 4 ! If the above routine returns then at least one Literal 

3; 1885 $238 4 ' translation was found. This form of evaluate sets the 

: 1886 4537 4 ' psuedo ‘'\' (last value displayed) only. 

3: 1887 4538 4 !<= 

3; 1888 4539 4 PATSGL_LAST_VAL = ..LOCATION; 

: 1889 4540 4 RETURNTTRUED; 

3; 1890 4541 3 END; 

: 1991 $286 

; 18 § 454 !++ : sone 

; 1 tate Instruction mode works only if /LITERAL was not specified. 

; 1895 4546 4 if (.PATSGB_MOD_PTRCMODE_INSTRUC)) 

3 1896 454 3 THEN 

3; 1897 4548 4 BEGIN 

: 1898 4549 4 LOCAL 


| 2 | | 
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1899 COUNT 
1900 ENCODED_BUF : VECTORC38,BYTE); | 
1901 IF (NOT PATSINS-ENCODE(..LOCATION, ENCODED BUF, 0)) 
308 SIGNAL (PAT$_N ENCODE, 1, ..LOCATION); 
DED_BUFCOJ; 
| 


Coooo 


VMIFWN —OOONAOUES WN —"OODONOUS 


BEGIN 
PATSOUT_NUM_VAL(.ENCODED_BUFC.COUNT], BYTE_LENGTH, HEX_RADIX, FALSE); 
COUNT =.COONT = 1; 


END 
UNTIL .COUNT EQL 0; 
END 
ELSE 


BEGIN 
PATSOUT_NUM_VAL(..LOCATION, 0, g. TRUE); | 
PATSGL_CAST VAL =". (LOCATION) <0, .PAT$GB_MOD_PTR CMODE_LENGTH] * 8>; 


END; | 


'44 
Write out the string and return. 


PATSOUT_PUT( OUTPUT_BUFFER ); | 
RETURN TRUE 
ND: 


Po oP of ot of ot ot ot ot ot ee 
POPUP III III 
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OFFC 00000 .ENTRY PATSOUT MEM_LOC, Save R2,R3,R4,R5,R6,R7,R8,-; 4379, 
5B 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R11 ; | 
$a 000000006 EF 9E 00009 MOVAB PATSMAP_ADOR, R10 | 
59 000000006 EF 9€ 00010 MOVAB PATSOUT“NUM_VAL, R9 ; | 
58 00000000G EF 9E 00017 MOVAB PATSGL_NEXT_LOC, R8 3 
57 000000006 EF 9€ OO01E MOVAB PATS$FAO_PUT> R7 ; 
56 000000006 EF 9€ 00025 MOVAB PATSGL_CAST_VAL, R6 ; | 
55 000000006 EF 9€ 000 g MOVAB PATS$GLCONTEXT, R5 ; | 
54 000000006 EF 9E 000 MOVAB PATS$GB°MOD PTR, R4 ; | 
SE FEC8 CE 9E O003A MOVAB <-312(SP), SP ; 

000000006 EF 1 AE 9E 000 F MOVAB OUTPUT_BUFFER+1, PATSCP_OUT_STR ; 4439 
000000006 EF 04 00047 CLRL  PATS$GL~BUF _S1Z > 4440 
08 AC D3 0040 TSTL  PREFIXTSTG > 4445 | 
06 13 00050 BEQL : | 
08 AC DD 0098 PUSHL PREFIX_STG > 4447 
67 01 FB 0005 CALLS #1, PATSFAO_PUT ; 
3 O4 AC D0 00058 18 MOVL LOCATION, R3 > 4461 | 
03 01 A ; 005 BLBS § PATSGL_CONTEXT+1, 2$ > 4454. 
00EB 31 0006 BRW 7$ ; | 
5E pp 0063 28 PUSHL_ SP > 4461. 
08 AE OF 006 PUSHAB MAPPED_LOC ; | ; 
53 DD 00068 PUSHL ; | 
6A 03 FB OO06A CALLS #3, PATSMAP_ADDR ; 
7E 04 7D 0006D MOVO #4. -(SP) > 4462 | 


dD 8 
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v04 
53 DD 0007 PUSHL R ; : 
900000006 EF " FB 7 CALLS #3, PATSOUT_SYM_VAL : ; 
0000000G_ EF p 7 MOVIL PATSGL_CAST_LOC 3 4463) ; 
900000006 EF 94 00080 CLRB_ —« PAT $GB_LOC~TYPE : 4464. ; 
0000000' FF 9F 00086 PUSHAB COLON TAB STG + 4465 ; 
67 1 FB 008C CALLS #1, PATSFRO PUT : : 
32 64 D 09 F MOVL § PAT$GB_MOD_PTR, R2 : 4470, ; 
A 03 A2 59 09 BLBC 3(R2),~4$ : | ; 
7E 0¢ AC 7D 0009 MOV ASM _DIR_TBL, -(SP) + 4472 | ; 
04 AC 9F OOO9A PUSHAB LOCATIO : | ; 
3¢ AF 9F 0009D PUSHAB OUTPUT_BUFFER : | ; 
53 DD OOOA PUSHL R : ; 
000000006 EF 05 FB OO0A CALLS #5, PATSINS_DECODE : | : 
04 AC 50 p09 OOA MOVL RO, LOCATION : ; 
oc 12 OO0AD BNEO : ; 
006D8102 8F DD OOOAF PUSHL #7176450 + 4475 ; 
6B 01 FB 000B5 CALLS #1, LIBSSIGNAL : ; 
0108 31 00088 BRW 14$ + 4476 : 
5E DD 000BB 3$ PUSHL SP : sined 3 
08 AE 9F 000BD PUSHAB MAPPED_LOC : ; 
04 aC DD 000C0 PUSHL LOCATION : : 
6A 03 FB 000C3 CALLS #3, PATS$MAP_ADDR : ; 
49 01 Ad €E9 000C6 BLBC + PATSGL_CONTEXT+1, 5$ + 4481 F 
68 04 AC DbO OOOCA MOVL LOCATION, PATS$GL_NEXT_LOC + 4483 : 
7C 11 OOOCE BRB 6$ + 4472 : 
3F 04 A2 €E9 00000 4$: BLBC 4(R2), 5$ + 4494 ; 
FF7C CD 9F 00004 PUSHAB OUT VALUES + 4501 ; 
7E 01 Ae 9A 00008 MOVZBL 1(R2), -(SP) : : 
53 DD 000DC PUSHL R3 : ; 
000000006 EF 03 FB OO0DE CALLS #3, PATS$GET_VALUE : : 
FF7C CD 9F OOOE PUSHAB OUT_VALUES + 4502 : 
50 64 DO 000E9 MOVL PATSGB_MOD_PTR, RO : ; 
7E 01 AO 9A OOOEC MOVZBL 1(RO),~-(SP) : ; 
00000000' ai 9F OOOFO PUSHAB cs_AS I] : ; 
67 3 FB 0006 CALLS #3, PAT$FAO_PUT : ; 
50 64 DO 000F9 MOVL § PATS$GB_MOD_PTR, RO : 4503 : 
51 01 AO 9A OOOFC MOVZBL 1(RO) ; ; 
68 53 51 €1 00100 ADDL3 R1, R$, PATSGL_NEXT_LOC : : 
50 01 AO 9A 90104 MOVZBL 1(RO), RO + 4504 : 
50 08 C4 00108 MULL2 . : : 
66 04 BE 50 00 Ff 00108 EXTZV #0. RO, @MAPPED_LOC, PATSGL_LAST_VAL : : 
1 00111 BRB + 4494 ; 
35 01 AS £9 O13 5$: BLBC - PATSGL_CONTEXT+1, 6$ + 4507 : 
FF7C }6CDCOF gu PUSHAB OUT VACU ; 4510, : 
7E 01 Ag 9a 0011B MOVZBL 1(R2), -(SP) : ; 
53 DD OO11F PUSHL : | : 
000000006 _ EF 03 FB 00121 CALLS #3, PATSGET_VALUE ; : 
oI bb 00128 PUSHL #1 : 4511 | 3 
E 7C OO12A CLRQ. = =( SP) F ; 
FF7C CD DD 001 PUSHL  OUT_VALUES : : 
69 04 FB 91 CALLS #4, ~PATSOUT_NUM_VAL ; : 
50 64 00 001 MOVL  PAT$GB_MOD_PTR, ~RO > 4512 | ; 
51 01 AO 9A 001 mOVZBL  1(RO) : : 
68 53 51 C1 OO13A ADDL3 R1, R$, PATSGL_NEXT_LOC ; ; 
20 01 AO 9A 001 MOVZBL 1(RO), RO ; 4513 | : 
0 08 C4 14 MULL a8, Rb ; ; 
66 FF7C =CD 50 0 EF 0014 EXTZV #0. RO, OUT_VALUES, PATSGL_LAST_VAL : | : 


; Routine Size: 
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Routine Base: 
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03 
oc 


006D810A 


08 
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01 


30 


_PATSCODE + OD7A 


1986 92:53:83 


12$ 
#1, PATSGL_CONTEXT+3, 8$ 
6CATION 


$s 4.0-742 Pa 
SMASTER: CPATCH.SRCJPATEXA.B32;1 


LVTS 
PATSGL_LAST_VAL 
T$GB_MOD_PTR, RO 


#3, PATSINS_ENCODE 
RO, 9$ 


#3, LIBSSIGNAL 
oN ODED BUF. COUNT 


so 
Sad 


NCODED_BUFCCOUNT], 
4, PATSOUT_NUM_VAL 
COUNT 


1 
1 
D 
1 
3 
6 
A 
C 
F 
1 
8 
B 
D 
F 
5 
8 
C 
F 
1 
6 
9 


3) 

PATSOUT_NUM_VAL 
$GB_MOD_PTR, ~RO 
0), RO 
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R 
RO, LOCATION, PATSGL_LAST_VAL 
#1, PATSOUT_PUT 

#1, RO 
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16-Sep-1984 00:30: VAX-11 Bliss-32 V4.0-742 Page 59. 
youe000 10286-1382 99:39:43 DISKSVMSMASTER=CPATCH. SRCIPATEXA.B32: 1° (10). 
; 1927 4577 1 ROUTINE DISPLAY_LVTS (VALUE) : NOVALUE = | 
: 1859 1355 | tes | 
: 1930 4580 1 | | 
; 1 1 t2 1 : FUNCTIONAL DESCRIPTION: 
: 19 7 45 ‘ 1 i Given a value, display the pathnames of all Literals in the LVT which 
; 19 4584 1! have this value. 
; 1935 4585 1 | 
; 19 e258 1 ! CALLING SEQUENCE: | 
; 1937 4587 1! 
: 1938 4988 1 i CALLS #1, DISPLAY_LVTS | 
3; 19 45 1! | 
; 1940 4590 1 ! INPUTS: | 
: 1941 4591 1! 
; 1oe8 $236 1} VALUE = Literal value to be translated to symbols 
: 194 4593 1! 
; MP tage : } IMPLICIT INPUTS: 
: 1946 4596 1} The initial set up for standard PATCH 1/0 has already been done. 
3 1947 4597 1! This routine (re)uses this buffer for its output. 
; 19468 4598 1! 
3 1949 4599 1 ! OUTPUTS: 
Be 
3 : none 
; 1326 ree 1! 
3; 195 4605 1 ! IMPLICIT OUTPUTS: 
3: 1954 4604 1! . ; 
3 1322 ret ! ALL the Literal symbols associated with the value are printed. 
: 1957 4607 1 | ROUTINE VALUE: 
: 1958 4608 1! 
3; 1959 4609 1! novalue 
; 1960 4610 1! 
3 1303 re op ! SIDE EFFECTS: 
; 1968 1818 1! Either output is sent to SYSSOUTPUT or a SIGNAL is generated and 
3: 1964 4614 1! no return is done. 
3; 1965 4615 1! 
Be Bin 
: 1388 tei9 3 eon 
: 1994 1659 — OUTPUT BUFFER $ Wer Fen rom BTEs. poppet etter, ver Teena writes 
; 1978 4638 ONE7F OUND; te site f i Indicator if at least one symbol was found | 
: 1975 4625 2 !++ 
: 1976 4626 ! Initialize a flag which is used to know whether or not at least one match 
3; 1977 4627 !' to the given value has been found. Also save a pointer to current output 
3; 1978 4628 ! buffer so that it can be reused. 
: 1980 1680 5 ONE_FOUND = FALSE: 
+ 1981 4631 OUTPUT_BUFFER = .PATSCP_OUT_STR; 
3 1386 46 ¢ 
3; 198 46 !+¢ 
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v04-000 14-Sep-19 DISKSVMSMASTER: CPATCH. SRCIPATEXA.B32- 79 

: 1388 4634 ! Access to the LVT is via a ‘canned’ function. Before using it, this routine ; 
: \3e7 re 5 must signal its intention to do so. ; 
: 1387 46 : PATSGET_NXT_LVT(SL_ACCE_INIT); | ; 
: 1989 46 § e+ 3 
3 Hb a reo it Loop through the LVT sequentially, asking to see all currently valid records. : 
; 1996 4646 WHILE ((LVT_PTR = PATSGET_NXT_LVT(SL_ACCE_RECS)) NEQA 0) | ; 
> 199 464 | ; 
; 1994 4644 BEGIN F 
: 1995 4645 4 IF (.LVT_PTRCLVT_VALUE] EQL .VALUE) : 
; 1238 4646 3 THEN : 
3; 199 4647 & BEGIN 3 
; 1998 4648 4 LOCAL 5 
; 1999 4649 4 : REF NT_RECORD $ 
; 2000 4650 4 PATH VEC * PATHNAME. VECTOR: | : 
: 2001 4651 4 ; 
3 O08 4652 4 lee | : 
; 200 4655 4 i Found a match. Print out the a See pty pathname by $ 
3 Ope rete: ? i first buiiding a pathname vector based on the returned NT_PTR. | : 
3 e's 4656 4 ONE BF OUND = TRUE $ 
3 200 4657 4 N BTR = LVI PTRCLVT NT_PTRI; ; 
3; 2008 4658 4 PATSADD NT_T_PV(.NT_PTR, PATH VEC); 3 
3 2009 4659 4 PATSPRINT_PATH(PATH_VEC); | ; 
; 2010 4660 4 3 
: 2011 4661 4 '+¢ : 
3 Org re ? iv Write out the string and reset the global buffer pointers. : 
3 2014 4664 4 PATSOUT PUT(. ee! BUFFER=-1); : 
3 2015 4665 4 PATSCP_OUT_STR = .OOTPUT_BUFFER; : 
; Big 4666 4 PATSGL_BUF_SIZ = 0; é 
: $01 4667 3 END; | : 
5 4h | reve END; !' Loop back to consider the next LVT record | : 
; 920 4670 2 I++ | ; 
: 2021 4671 i at this point, the LVT has been completely searched. If no matches were : 
3 098 ret .! found, then signal a warning. : 
: 5054 4674 §% iF (NOT .ONE_FOUND) | : 
3 2025 4675 T 3 
; 20 $ 467 SIGNAL (PATS_NOLITERAL*MSGSK_WARN, 1, .VALUE); 

; ° 467 RETURN; 

3 8 4678 END; ! End of DISPLAY_LVTS 


007¢ 00000 DISPLAY_LVTS: 
WORD 


0000006 EF 9E 0000 HOVAB Parse pene eth hee : S77 
38 adits i 9 8 8 MOV PATS cE ET “NXT sivt. RS : 
E c ¢ 1 SUBL ach, : 
4 0 6 18 CLRL FOUND : 4630, 
53 66 DO 0001 MOVL PATSCP-OUT_STR, OUTPUT_BUFFER : 4631 | 
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Routine Base: 


4 8 
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65 1h 
65 19 1$: 
AC 02 
C 
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4001 
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nm ww 
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WRF FO MW Wea MP MN MRA OS Sm 


FF Bee 
EF 004 
66 005 
000000006 005 
0058 
12 005D 2$: 
04 sh 
006 
00608288 DD Beets 
00 00 


68 
Oe 00072 38: 
_PATSCODE + 0F43 


4 00:30: VAX-11 Bliss-32 V4.0-742 

4 99:39:93 DI Sk SKSVMSMASTER: CPATCH.SRCJPATEXA. B32. ; 
CLRL -(SP) 

hey ae PATSGET_NXT_LVT 

CALLS #1, PATSGET_NXT_LVT 

HOV ’ LVT_PTR 

CMPL irre, VALUE 

BNEQ 

MOVL #1, 


£ FOUND 
MOVZWL (LVT OFF Ry ag _PTR 
PUSHR #*M<RO,SP> 

CALLS HS “PATSADD _NT_T_PV 


CALLS PATSPRINT PATH 
PUSHAB “1 toutPur 8 BUFFER) 


MOVL Sufeur. ‘BUFFER "pATSCP. OUT_STR 
CLRL PATSGL~BUF_SI2 


$ 
BLBS ONE_FOUND, 3s 
VaLOE 


#7176888 
CALLS #3, LIBSSIGNAL 
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EXA 

-000 
; 0 rh ! GLOBAL ROUTINE PATSREG_MATCH (STRING_DESC) = : 
; ; teat 1 !44 ; 
; 20 46 § 1! 3 
; 6 ¢ re : FUNCTIONAL DESCRIPTION: : 
; 4685 1! Compares a string described by the eteing descriptor passed as the : 
; 20 46 1! routine formal to each of the names of the machine registers. If the ; 
; 20 46 1 } string matches a fogteter name, return the number of the register (0-16, ; 
3 4 ‘ : where 16 is the PSL). Otherwise return a -1. | : 
; 96] 46 1 ! CALLING SEQUENCE: 3 
3 ¢ 4691 1! 3 
: 2046 4692 1! CALLS #1, PATSREG_MATCH 3 
3 2044 4695 1! F 
3 Be? 4694 1 ! INPUTS: 3 
3 § 4695 1! 3 
3 204 $938 1} STRING_DESC = String descriptor to symbol string : 
3; 2048 4697 1! 3 
3; 20469 4698 1 | IMPLICIT INPUTS: F 
; 2050 4699 1! 3 
; 2051 4700 1! The VAX machine register table. ‘ 
3 O26 4701 1! F 
3; 205 4702 1 ! OUTPUTS: 3 
3; 2054 4705 1! F 
3 yee of ; ; The number of the register whose name matched the string. F 
3 ; | Py 
3 id 47 1 ! IMPLICIT OUTPUTS: F 
; 2058 4707 1! 3 
3 2059 4708 1! none | : 
3 2060 4709 1! 3 
; 2061 4710 1 | ROUTINE VALUE: | ; 
; Boe 4711 1! ; j 
: 206 orig 1! 0-16 for the corresponding register 3 
3; 2064 47135 1! -1 for no match | ‘ 
3; 2065 4714 1! ; 
3 '¥§3 4715 1 ! SIDE EFFECTS: i 
; 206 orig 1! 
3 471 . 3 none 
: 9 4718 1! | 
; 2070 471 1 !-- 
3; 2071 4720 1 
3 O78 4721 BEGIN 
; 207 47 § 
3; 2074 47 
3; 2075 47246 STRING_DESC : REF BLOCK C, BYTE]; 
3 O76 4725 
3; 207 47 § LOCAL 
; 2078 47 INDEX; 
3; 2079 47 3 
; 2080 47 INDEX = 0; 
s st 4750 REPEAT 
3 § 4731 BEGIN 
; 208 47 $ IF CHSEQL (.STRING_DESC COSCSW LEne TH) CHSPTR (.STRING_DESC COSCSA_POINTER)), 
; 2084 47 sReGI Stee TABLE C.INDEX, REG CH_CNTJ, 
> 2085 4734 CHSPTR (REGISTER_TABLE (.1INDEX, ~REG_NAME])) 
; 2086 4735 THEN RETURN . INDEX 


8 
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-Sep-1984 
; 2087 4736 3 ELSE | 
: 4737 4 BEGIN 
; 47 8 4 INDEX = . INDEX + 1; | 
; 2090 4739 4 IF . INDEX GTR REGISTER_COUNT = 1 
; 991 4740 4 THEN RETURN =1 | 
: 2 4741 END; 
; 209 are oe 
3 2094 474 END 
3; INFO#212 


Null expression appears 4347 cenibeeiiied context 


003¢ 00000 .ENTRY PATSREG_MATCH, Save R2,R3,R4,R5 
54 D4 9002 CLRL —sCANDEX 
55 04 AC DO 000 MOVL § STRING DESC 
00000000'EF44 DF 00008 1$ PUSHAL REGISTER SASL ECINDEX? 
9E 9A OOOOF MOVZBL a(SP)+ 
00000000'EF44 DF 0012 PUSHAL REGISTER TABLE+1C INDEX) 
50 00 046 BS 04 gC D 9019 CMPCS  @STRING_BESC, a4(R5), #0, RO, a(SP)+ 
4 12 00 1 BNEQ 2 
50 4 D0 00023 MOVL INDEX, RO 4735 
04 000 6 RET 
54 06 00 2$ INCL INDEX 4738 
10 4 D1 00029 CMPL —s— INDEX, #16 4739 
DA 15 00 C BLEQ = ‘18 
50 01 CE 0002E MNEGL #1, RO 4740 
04 00031 RET 4743 


; Routine Size: 50 bytes, Routine Base: _PATSCODE + OFB6 
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58 ice * | | 
oreo eRe 9888: ey TIC SUMeHASTER SEPA ON SACIPATEXA.B32¢4 7" (195, 


: rh br: } GLOBAL ROUTINE PATSFILL_BUF (BUF _DESC, DATA_PTR, DATA_SIZ) : NOVALUE = 

cn | i | 
: 21 4748 1 | FUNCTIONAL DESCRIPTION: 

s 21 474 1! | 
3; 21 § 4750 1! Takes the data defined as the ingut arguments and puts them in the 

3: 21 47 1! temporary deposit buffer. This is accomplished by at horat ing a new 

3; 21 47 1; larger buffer, copying in the old buffer, and then deallocating it. 

3 12? rtf ? ; } Then the buffer descriptor is updated. 

; 199 4755 1 | CALLING SEQUENCE: | 
; 109 4? ; ; CALLS #2, PATSFILL_BUF 

; 11] 6759 i INPUTS: 

: 118 4761 1! BUF _DESC - Buffer descriptor 

7 2114 ores 1! DATA_PTR = Address of the data to be put in the buffer 

: OS th 3 : DATA_SIZ = Number of bytes of data to be put in the buffer 

: 9 4765 ! IMPLICIT INPUTS: 

+ 2119 thee 1 i none 

3; 2120 4768 1! 

3 ; 1 $780 : OUTPUTS: 

He soe 

: 5 4773 { IMPLICIT OUTPUTS: 

; ; : rhe ! The buffer descriptor is updated. 

+ 2129 4777 1 + ROUTINE VALUE: 

3: 21 4778 1! 

He eo te pe 

; § 4781 | SIDE EFFECTS: 

+ 2135 i788 1 The data is written into the buffer. 

3; 21 rh +: 1! 

3; 21 4785 1 !-- 

; 2138 4786 1 
3; 2139 47 BEGIN 

Ste £789 

: 148 4790 BUF_DESC : REF BLOCKC,BYTE); ' Buffer descriptor 

: 107 t393 LOCAL 

; 107 ares TEMP_PTR; ! Pointer to new buffer 
: 129 4795 2 TEMP_PTR = PATSFREEZ(( BUF _DESCLDSCSU_LENGTH] + .DATA_SIZ + A_LONGWORD -1)/A_LONGWORD); ! Allocate larger bu | 
3 Pe $796 If .BuF _DESCCOSC$W_LENGTH)” NEQ 

: $189 thon § MEY pecan 

: 151 1338 CHSMOVE (.BUF _DESCCDSC$W_LENGTH], .BUF_DESCCDSCSA_POINTER], .TEMP_PTR); ! Move in previous data 

3: 2152 4800 PATSFREERELEASE ( .BUF _DESC DSCSA_POINTER 2 (BUF _BESCCOSC$W_LENGTA) +35 


/4); | Release old buffer 
| 
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: 2153 4801 END 3 
5 2154 4 a CHSMOVE(,DATA_SIZ, .DATA_PTR, CHSPTR(.TEMP_PTR, .BUF_DESCCDSCSW_ LENGTH))) ; ' Move in new data ; 
: 3155 4 BUF -DESCEDSCSX_POINTERJ = CHSPTR(.TEMP_PTRI; t buffer dsc addr 3 
: 6 4 04 BUF DESCCDSCSWLENGTH] = .BUF_DESCCOSCSW_LENGTH] + .DATA_SIZ; ceoes buf dsc siz : 
ore 00 .ENTRY PATSFILL_BUF, Save R2,R3,R4,R5,R6,R7,RB : 4744 ; 
04 ac p 00 HOVE BUF DESC; R6 + 4795 : 
66 3 MOVZ2WL (ROS, : ; 
50 0c AC C1 0000 ADDL3. DATA.SIZ, R8, RO : ; 
0 C9 0005 ADDL2 # : F 
7é 0 . 2 991 DIVL * RO, =(SP) : : 
000000006 EF 1 FB 00015 CALLS #1. PATSFREEZ : : 
7 0 pO 0001C¢ MOVL ; TEMP_PTR : ; 
38 D 9001 TSTL + 47% ; 
17 13 00021 BEQL i'1$ : ; 
67 04 86 58 28 0023 MOVC3 RB, @4(R6), (TEMP_PTR) + 4799 ; 
50 03 AB 5 0028 MOVAB 3(R8) + 4800 : 
7E 50 04 C? 0002C DIVL3 #4, RO, -(SP) : : 
04 A6 DD 000 : PUSHL ; ; 
000000006 EF 02 FB 0003 CALLS #2, PATSFREERELEASE ; F 
6847 08 BC 0c AC 28 0003A 1$: MOVCS DATA_SIZ, @DATA_PTR, (R8)CTEMP_PTR) + 480 : 
04 Ab 57 DO 00041 MOVL TEMP PTR. 4(R6)~ : 480 
66 0c AC AO 00045 ADDW2 DATASIZ. (R6) + 4804 
04 00049 RET + 4805 


; Routine Size: 74 bytes, Routine Base: _PATSCODE + OFE8 
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PSECT SUMMARY 
Bytes Attributes 
100 NOVEC, ets RD ,NOEXE, ay 
4146 NOVEC,N 8 Xx 4 
0 NOVEC, *NOURT. * NORD *NOEXE, *NOSHR: 
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LCL, REL, 
LCL, REL, 
LCL, ABS 
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1000 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /VARIANT: 1/LIS=LIS$:PATEXA/OBJ=OBJ$:PATEXA MSRC$:PATEXA/UPDATE=(ENH$:PATEXA) 
4146 code + 100 data bytes 
aE "3° 5 
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CON,NOPIC,ALIGN(Q) 
CON,NOPIC,ALIGN(2) 
CON, NOPIC ,ALIGN(O) 
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